[求助]：怎么通过点选取对象

animal212 · 发表于 2007-5-30 17:18:45

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun C:vv()
(vl-load-com)
(load"xyp_lib.vlx")
(setq ffn (getfiled "选取档案" "" "txt" 1))
(setq ff (open ffn "w"))
(setq dd (ssget '((0 . "*TEXT")))
i -1
  )
(repeat (sslength dd)
(setq s1 (ssname dd (setq i (1+ i))))
(setq s2 (entget S1)
   s3 (cdr (assoc 11 s2))
   x (car s3)
   y (cdr s3)
   y (car y)
)
(setq x (+ x 13.5));;;;;;;;;;;;;;;;X坐标加13.5
(setq y (+ y 3));;;;;;;;;;;;;;;;Y坐标加3
(setq ss (ssget '(x y))) ;;;;;;;;;;;;;;;;;;;;;就是这里不懂！！！老提示“错误的点参数”
(setq s4 (entget ss)
   s5 (cdr (assoc 1 s4))
)
(princ s5 ff)
(princ "\n" ff)
)
(close ff)
)

请高手帮帮忙！

xyp1964 · 发表于 2007-5-30 19:19:20

[FONT=courier new](defun C:test ()
(load "xyplib")
(setq ff (open (getfiled "选取档案" "" "txt" 1) "w")
dd (ssget '((0 . "*TEXT")))
i -1
)
(repeat (sslength dd)
(setq s3 (xyp-get-dxf 11 (ssname dd (setq i (1+ i))))
x (+ (car s3) 13.5)
y (+ (cadr s3) 3)
s5 (xyp-get-dxf 1 (ssname (ssget (list x y)) 0))
)
(princ s5 ff)
(princ "\n" ff)
)
(close ff)
)[/FONT]

zml84 · 发表于 2007-5-30 19:53:39

将那一句换成:

(setq SS (ssget (list X Y)))

另：我不明白你这个程序的功能是什么，但感觉在代码结构上有待改进。
斗胆改动如下：

<PRE>;;;(vl-load-com)
;;;(load "xyp_lib.vlx")
(defun C:VV (/ FFN FF DD I S ENT PT)
(if (setq FFN (getfiled "选取档案" "" "txt" 1))
(progn
(setq FF (open FFN "w"))
(setq DD (ssget '((0 . "*TEXT")))
I -1
)
(repeat (sslength DD)
(setq S (ssname DD (setq I (1+ I))))
(setq ENT (entget S)
PT (cdr (assoc 11 ENT))
PT (mapcar '+ PT '(13.5 3))
)
(if (and (setq S (ssget PT)
ENT (entget S)
)
(setq S5 (cdr (assoc 1 ENT)))
)
(princ S5 FF)
)
(princ "\n" FF)
);_结束 repeat
)
);_结束 if
(close FF)
);_结束 defun
</PRE>

<PRE>;;;(vl-load-com) 
;;;(load "xyp_lib.vlx") 
(defun C:VV (/ FFN FF DD I S ENT PT) 
    (if        (setq FFN (getfiled "选取档案" "" "txt" 1)) 
        (progn 
            (setq FF (open FFN "w")) 
            (setq DD (ssget '((0 . "*TEXT"))) 
                  I  -1 
            ) 
            (repeat (sslength DD) 
                (setq S (ssname DD (setq I (1+ I)))) 
                (setq ENT (entget S) 
                      PT  (cdr (assoc 11 ENT)) 
                      PT  (mapcar '+ PT '(13.5 3)) 
                ) 
                (if (and (setq S   (ssget PT) 
                               ENT (entget S) 
                         ) 
                         (setq S5 (cdr (assoc 1 ENT))) 
                    ) 
                    (princ S5 FF) 
                ) 
                (princ "\n" FF) 
            );_结束 repeat 
        ) 
    );_结束 if 
    (close FF) 
);_结束 defun 
</PRE>

animal212 · 发表于 2007-5-30 20:16:39

谢谢斑竹和zml84，
呵呵，我要实现的功能是对号入座啊。
因为我的图中有两种数据，一种是编号，另一种是高程，而且编号和高程的相对位置是一定的，也就是说一个编号对应一个高程。如果这个功能可以实现，那现在只要选择编号就能自动选择对应的高程了。再将编号和高程同时打印出来，这样就实现对号入座了不是吗，呵呵。我相信这对你们应该是小菜一蝶了。可我试了一个下午都找不出原因来。只好来求你们了。呵呵，谢谢你们无私的帮助。

zml84 · 发表于 2007-5-30 20:29:17

我觉得，这种依靠相对位置的检索条件是不牢靠的。
最好将高程信息以扩展数据的方式写入编号图元中去，或者将高程图元的句柄写入编号的扩展数据中。这样能够更好的检索和提取高程，过程更为可靠。
此外，若相对位置被改动后，可以写一段代码，将位置按照新的要求复位。
你可以考虑一下。

animal212 · 发表于 2007-5-31 08:23:01

对不起，我lisp境界没达到那么高啊
如何将高程信息以扩展数据的方式写入编号图元中去呢？
写进去了又如何提取出来呢？
这似乎不是一般人所能理解的。

zml84 · 发表于 2007-5-31 11:07:26

虽然不嫩一口吃成胖子，但也不必妄自菲薄。在应用中学习，在学习中提高。
有专业需求是好事，要是能以更好方法解决，则更是快事一件。

animal212 · 发表于 2007-5-31 20:02:46

呵呵，今天发现你已经成为版主了，真为你高兴啊。
我学lisp纯粹是业余兴趣，以及工作方便，一般都是改改别人的程序，很少自己写啊，叫我写也写不来，所以没有系统地学，不知道lisp有什么好的书籍可以参考吗？最好是可以达到你所说的第三层境界以上的。

zml84 · 发表于 2007-5-31 21:23:02

就像学习使用计算机不必从二进制开始一样，lisp也不用去系统地去学。
最好的环境就是，首先是能敏锐的观察的工作中有待改进的地方，有种用LISP可以解决问题的直觉；
然后能够拥有一本参考资料，在问题闪现之后能过以最快的速度查找到自己所需要的函数或思想；
进而向问题开刀，解决它。在解决过程多做注释，过一段时间再去读它，你也许会有更好的解决方法，这就是循序渐进的提高。
如果能做到学以致用，现学现卖，那就离小成不远了。
 
至于参考书籍，我始终珍惜有一本纸质的大书拿在手里的感觉，作为初学者，最需要的是有函数详解内容的资料，虽然它多是help文件的翻译，但拥有一本也是非常适用的。

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：怎么通过点选取对象

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子