【转帖】那位大侠会编，lsp命令。求教了。
 

那位大侠会编，lsp命令。求教了。
www.dimcax.com
那位大侠会编，lsp命令。求教了。
我工作中要经常用到简单标注，只需要标出尺寸即可，单位1mm。用一个不知道那位前辈编写的q.lsp命令。
但是这位前辈在编写的时候在捕捉设置中只设置了圆心捕捉和交点捕捉。而我们在工作的时候还要重复使用到端点捕捉和垂足捕捉。结果搞的每次要不停的点捕捉标记。非常麻烦。
而我又是个cad小白。希望那位老大能帮帮忙给添加上端点捕捉和垂足捕捉。谢谢了
命令内容如下：
(defun c:q()
(command "style" "" "hztxt" 5 0.8 "" "" "" "")
(command "osnap" "cen,int")
(setq p1(getpoint"\n拾取第一点:"))
(setq p2(getpoint p1 "\n拾取第二点:"))
(command "osnap" "")
(command "line" p1 p2 "")
(setq ang0 (angle p1 p2))
(setq p11 (polar p1 (+ ang0 (/ pi 2.0)) 11))
(setq p12 (polar p1 (- ang0 (/ pi 2.0)) 11))
(command "line" p11 p12 "")
(setq p21 (polar p2 (+ ang0 (/ pi 2)) 11))
(setq p22 (polar p2 (- ang0 (/ pi 2)) 11))
(command "line" p21 p22 "")
(setq d0(distance p1 p2))
(setq p0(polar p1 ang0 (/ d0 2)))
(setq p0(polar p0 (+ ang0 (/ pi 2)) 2))
(setq an0 (/ (* ang0 180) pi))
(command "text" "c" p0 an0 (rtos d0 2 0))
)
将以上内容在记事本中保存为q.lsp文件。加载即可。

(command "style" "" "hztxt" 5 0.8 "" "" "" "")
(setvar "osmode"
(+
1 ; 端點捕捉
4 ; 圓心
32 ; 交點
128 ; 垂足
) )
(setq p1 (getpoint "\n拾取第一點:"))
......

楼上的大侠，完整的是这样的吗?谢谢呀！
(defun c:q()
(command "style" "" "hztxt" 5 0.8 "" "" "" "")
(setvar "osmode"
(+
1 ; 端點捕捉
4 ; 圓心
32 ; 交點
128 ; 垂足
))
(setq p1(getpoint"\n拾取第一点:"))
(setq p2(getpoint p1 "\n拾取第二点:"))
(command "osnap" "")
(command "line" p1 p2 "")
(setq ang0 (angle p1 p2))
(setq p11 (polar p1 (+ ang0 (/ pi 2.0)) 11))
(setq p12 (polar p1 (- ang0 (/ pi 2.0)) 11))
(command "line" p11 p12 "")
(setq p21 (polar p2 (+ ang0 (/ pi 2)) 11))
(setq p22 (polar p2 (- ang0 (/ pi 2)) 11))
(command "line" p21 p22 "")
(setq d0(distance p1 p2))
(setq p0(polar p1 ang0 (/ d0 2)))
(setq p0(polar p0 (+ ang0 (/ pi 2)) 2))
(setq an0 (/ (* ang0 180) pi))
(command "text" "c" p0 an0 (rtos d0 2 0))
)

今天跟别人一起试验了以下发现原来可以直接在int后面加参数命令即可。
(command "osnap" "cen,int")
参数命令可以点击捕捉标记获得。
真开心呀。

(command "osnap" "cen,int,end,mid")

学习了

学习了,感谢