xiaomihu 发表于 2005-12-1 16:25:00

帮我找找毛病，头都大了

，这个程序主要是要把一个闭合的pline线关键点的坐标都标出来，可怎么也执行不了，高手帮忙看看

Andyhon 发表于 2005-12-1 16:35:00

<P>(defun c:tt ()<BR>&nbsp; (vl-load-com)<BR>&nbsp; (setq obj (car (entsel "\nSelect a Polyline: ")))<BR>&nbsp; (MASSOC 10 (entget obj))<BR>)<BR>(defun massoc (key alist / nlist tmp)</P>
<P>&nbsp; (foreach x alist<BR>&nbsp;&nbsp;&nbsp; (if&nbsp;(eq key (car x))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq nlist (cons (cdr x) nlist))<BR>&nbsp;&nbsp;&nbsp; )<BR>&nbsp; )</P>
<P>&nbsp; (setq num (length nlist))<BR>&nbsp; (setq tmp 0)<BR>&nbsp; (repeat num<BR>&nbsp;&nbsp;&nbsp; (zz (nth tmp nlist))<BR>&nbsp;&nbsp;&nbsp; (setq tmp (+ 1 tmp))<BR>&nbsp; )<BR>)</P>
<P>(defun zz (p1 / x y)<BR>&nbsp; (setq<BR>&nbsp;&nbsp;&nbsp; x (strcat "X-" (rtos (nth 0 p1) 2 3))<BR>&nbsp;&nbsp;&nbsp; y (strcat "Y-" (rtos (nth 1 p1) 2 3))<BR>&nbsp; )<BR>&nbsp; (command "line" p1 (polar p1 0 30) "")<BR>&nbsp; (command "text" "j" "bl" p1 2.5 0 x)<BR>&nbsp; (command "text" "j" "tl" (polar p1 85 -2) 2.5 0 y)<BR>)</P>
页: [1]
查看完整版本: 帮我找找毛病，头都大了