davinlee 发表于 2006-6-30 10:16:00

[LISP]lisp中如何标角度

<P>&nbsp;在lisp中如何标角度</P>
<P>部份程式如下</P>
<P>(command "line" p4 p5 "")<BR>&nbsp;(setq LN1 (entlast))<BR>&nbsp;(command "line" p6 (polar p3 ang4 P) "")<BR>&nbsp;(setq LN2 (entlast))</P>
<P>(command "_dimangular" LN1 LN2 (polar p0 ang3 (/ H 2)) ^c)</P>
<P>但标不出来</P>

liu_kunlun 发表于 2006-6-30 10:35:00

<P>在图上标一个,用(entget (entlast))研究一下数据,并参考DXF帮助,用entmake生成.</P>
<P>所给代码中^C可能有问题,一般回车用空串""表示.</P>

NetBee 发表于 2006-6-30 11:23:00

本帖最后由 作者 于 2006-6-30 11:51:25 编辑

注意：命令dimangular的参数需要的是(entsel)返回的类型。
(defun c:test(/ p1 p2 p3 pt4 ln1 ln2)
(command "line" (setq p1(getpoint "第一点:")) (setq p2(getpoint p1 "第一点:")) "")
(setq LN1 (entlast))
(command "line" (setq p3(getpoint "第三点:"))(setq p4(getpoint p3"第四点:")) "")
(setq LN2 (entlast))
(command"_dimangular"(list LN1 p1)(list LN2 p3)(mapcar'(lambda(x y)(/(+ x y)2))p1 p3))
)
页: [1]
查看完整版本: [LISP]lisp中如何标角度