Autocad脚本-贴位

- 阅读需时: ~1 分钟

将以下代码保存成.lsp文件，在cad中用appload命令加载即可，贴位执行命令为xx，也可自行修改代码中的xx为自己想要的字母，贴位按起始点顺时针方向生成。。

(defun c:xx()
    (setq popup_xx_dis1 10);这里可以修改粘位高度
    (setq popup_xx_p1 (getpoint "\n起点:"))
    (setq popup_xx_p2 (getpoint "\n终点:"))
    (setq popup_xx_ang1 (angle popup_xx_p1 popup_xx_p2))
    (setq popup_xx_dis2 (/ popup_xx_dis1 (sin(* pi 0.4))))
    (setq popup_xx_pa (polar popup_xx_p1 (+ (* pi 0.4) popup_xx_ang1) popup_xx_dis2))
    (setq popup_xx_pb (polar popup_xx_p2 (+ (* pi 0.6) popup_xx_ang1) popup_xx_dis2))
    (setq pz (getvar "OSMODE"))
    (setvar "OSMODE" 0);0为关闭捕捉
    (command "pline" popup_xx_p1 popup_xx_pa popup_xx_pb popup_xx_p2 popup_xx_p1 "")
    (setvar "OSMODE" pz);捕捉还原
)