command 调用dimaligned的问题
本帖最后由 lameduck 于 2015-3-26 15:51 编辑代码是这样的
(defun C:szcc()
(SETQ OLD(GETVAR "osmode"))
(Setvar "osmode" 0)
(setq pt1(getpoint"\n获取标注点:"))
(command "dimaligned" pt1)
(if (not(tblsearch "layer""四至尺寸"))
(command "_layer" "m" "四至尺寸" "c" "blue" ""))
(SETQ spz(getreal"\n请输入设计审批值:")
sino(getstring"\n请输入四至尺寸编号:"))
(regapp "Dimnumber")
(czdim)
(designdim)
(dimnumber)
(Setvar "osmode" old)
)
我想(command "dimaligned" pt1)这句这样执行完了后，再执行下面的代码，怎么弄？
或者能实现getpoint一个点后，能捕捉到这个点到另外一条线的垂足的方法也行！ 原来用(setq pt1(getpoint"\n获取第一点标注点:")
pt2(getpoint"\n获取第二标注点:"pt1)
pt3(getpoint"\n获取标注位置:"pt2))这个就可以了
页:
[1]