谢谢!
<BR>
现在是把X坐标和Y坐标换过来了,由于现在真的一点时间都没有,有空我就把面积和边长一起打印出来
(defun c:test()<BR> (setq key 10 i 0 j 0)<BR> (setq obj (car (entsel "\nselect a Polyline: ")))<BR> (setq ent (entget obj))<BR> (setq pt(getpoint"\n坐标册放在："))<BR> (setq x(car pt))<BR> (setq y(cadr pt))<BR> (setq yn y)<BR> (setq x4(- x 10))<BR> (setq pt4(list x4 y))<BR> (setq x1(+ 18 x4))<BR> (setq pt1(list x1 y))<BR> (setq x2(+ 46 x4))<BR> (setq pt2(list x2 y))<BR> (setq y9(+ y 7))<BR> (setq pt9(list x4 y9))<BR> (command "text" pt9 4 0 "界址点坐标册")<BR> (command "text" pt4 4 0 "点号")<BR> (command "text" pt1 4 0 "X坐标")<BR> (command "text" pt2 4 0 "Y坐标")<BR> <BR> (foreach xy ent<BR> (if (eq (car xy) key )<BR> (progn<BR> (setq j (1+ j))<BR> (setq pe1 (cdr xy))<BR> (command "text" pe1 3 0 j)<BR> (setq yn (- yn 10))<BR> (setq pt3 (list x yn))<BR> (liang pe1 pt3 j )<BR> )<BR> )<BR> )<BR> (setq x5(- x4 3.220))<BR> (setq y5(+ y 5.2259))<BR> (setq pt5(list x5 y5))<BR> (setq x6(+ x5 69.1817))<BR> (setq pt6(list x6 y5))<BR> (command "LINE" pt5 pt6 "")<BR> (setq a(entlast))<BR> (command "array" a "" "r" (+ j 2) 1 -10)<BR> (setq y7(- y5 10))<BR> (setq pt7(list x5 y7))<BR> (command "LINE" pt5 pt7 "")<BR> (setq a(entlast))<BR> (command "array" a "" "r" (+ j 1) 2 -10 11)<BR> (setq pt8(list x6 y7))<BR> (command "LINE" pt6 pt8 "")<BR> (setq a(entlast))<BR> (command "array" a "" "r" (+ j 1) 2 -10 -30)<BR> )<BR> <BR>(defun liang(k pt3 r)<BR> (setq yy(car k))<BR> (setq xx(cadr k))<BR> (setq x1(car pt3))<BR> (setq y1(cadr pt3))<BR> (setq x1(+ 28 x1))<BR> (setq pe1(list x1 y1))<BR> (setq xj( - (car pt3) 10))<BR> (setq pe2(list xj y1))<BR> (command "text" pe2 3 0 r)<BR> (command "text" pt3 3 0 (rtos xx))<BR> (command "text" pe1 3 0 (rtos yy))<BR> ) yzbj1983发表于2004-9-9 10:16:00static/image/common/back.gif老兄
可否告知小弟，car是什么意思的？
<BR>就是取得一个表的第一个元素,返回这个元素 <P>请问在12楼的程序中</P>
<P>(foreach xy ent<BR> (if (eq (car xy) key )<BR>是什么意思呀？能详细说明一下吗？</P>
<P>在前面设置的变量中有单独的x和y,并没有xy</P>
<P>xy是不是单独的x和y合成的表呀？其坐标值与pt相同呢？</P>
<P> </P> 学习学习，感谢提供 不错啊，有实用价值 谢谢 过来参考参考
谢谢分享
页:
1
[2]