Question

求cad的一个lisp程序,要求鼠标在点击一点后,输入长、宽两个数值，就能出来矩形，并且自动画出矩形的对角线

要求鼠标在任意位置点击一点后,提示输入长、宽两个数值，就能出来矩形，并且自动画出矩形的对角线，对角线为虚线

Answer 1

(defun c:hk ()
(setq xy1 (getpoint "请点击矩形左下角:")
kd (getreal "请输入宽度:")
cd (getreal "请输入长度:")
xy2 (polar xy1 0 cd)
xy3 (polar xy2 (angtof "90") kd)
xy4 (polar xy1 (angtof "90") kd)
)
(command "pline" xy1 xy2 xy3 xy4 "c")
(command "line" xy1 xy3 "")
(setq a (entlast))
(command "change" a "" "p" "lt" "x0" "")
(command "line" xy2 xy4 "")
(setq a (entlast))
(command "change" a "" "p" "lt" "x0" "")
)
试一试，是不是这个效果，，

追问

你好，已经很不错了，不过再帮个忙，我想能不能一下子就出来两条黄色的对角虚线。因为做选择题也麻烦。

追答

(defun c:hk ()
(setq xy1 (getpoint "请点击矩形左下角:")
kd (getreal "请输入宽度:")
cd (getreal "请输入长度:")
xy2 (polar xy1 0 cd)
xy3 (polar xy2 (angtof "90") kd)
xy4 (polar xy1 (angtof "90") kd)
)
(command "pline" xy1 xy2 xy3 xy4 "c")
(command "line" xy1 xy3 "")
(setq a (entlast))
(command "change" a "" "p" "lt" "x0" "c" "2" "")
(command "line" xy2 xy4 "")
(setq a (entlast))
(command "change" a "" "p" "lt" "x0" "c" "2" "")
)
好了，选最佳答案

追问

果然是高手，不过我试了下，中间还是卡住了。

追答

到那一步卡住了，，我这都没有呢？

追问

线型“x0”未找到。请用 LINETYPE 命令来加载。
; 错误: 函数被取消
输入要更改的特性 [颜色(C)/标高(E)/图层(LA)/线型(LT)/线型比例(S)/线宽(LW)/厚度(T)/材质(M)/注释性(A)]: *取消*

追答

那是线型没有的过，你可以自己改一个你CAD里有的线形名字就要的了，，你自己看你的CAD里的虚线的名字是什么，就把上面的X0改成你有的名字就要的了，，，，，，，，