向众位前辈求助，如何解决下面的问题

lxl217114 · 发表于 2014-11-25 12:15:35

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

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

×

本人从事园林专业，最近与朋友聊到竣工图。
聊到一个难题，凭自己目前对CAD的掌握，无法自己解决。
特来论坛求助，希望得到前辈的帮助。
问题如下：
前提是：已经通过GPS测出每株植物的坐标，且已经将坐标录入电脑，并绘制成多段线。
那么，小弟的困扰来了：如何快速实现树例也即是块分布到多段线的每个端点上（树例按端点分布到线段端点）。
（图中的效果）

WI0O5W0C%RQ}95AR5PTN[IG.jpg

newer · 发表于 2014-11-25 12:43:53

很容易，几行代码就行了，不过你需要先在论坛补补知识，怎么用这些代码

(defun c:tt ()
(if (and
(setq e (car (xdrx_entsel "\n拾取样本块<退出>:" '((0 . "INSERT")))))
(setq ss (ssget '((0 . "*polyline"))))
)
(progn
(setq p1 (xdrx_getpropertyvalue e "position")
mat (xdrx_matrix_identity 3)
)
(mapcar
'(lambda (x)
(mapcar
'(lambda (y)
(xdrx_entity_transformedcopy e
(xdrx_matrix_settranslation mat
(mapcar
'-
y
p1
)
)
)
)
(xdrx_getpropertyvalue x "vertices")
)
)
(xdrx_pickset->ents ss)
)
)
)
(princ)
)

(defun c:tt () 
  (if (and 
        (setq e (car (xdrx_entsel "\n拾取样本块<退出>:" '((0 . "INSERT"))))) 
        (setq ss (ssget '((0 . "*polyline")))) 
      ) 
    (progn 
      (setq p1 (xdrx_getpropertyvalue e "position") 
            mat (xdrx_matrix_identity 3) 
      ) 
      (mapcar 
        '(lambda (x) 
           (mapcar 
             '(lambda (y) 
                (xdrx_entity_transformedcopy e 
                                             (xdrx_matrix_settranslation mat 
                                                                         (mapcar 
                                                                           '- 
                                                                           y 
                                                                           p1 
                                                                         ) 
                                             ) 
                ) 
              ) 
             (xdrx_getpropertyvalue x "vertices") 
           ) 
         ) 
        (xdrx_pickset->ents ss) 
      ) 
    ) 
  ) 
  (princ) 
)

上面代码按样本块的插入点插到多段线顶点上。可以选择多个多段线批量处理。

QQ截图20141125124309.png

lxl217114 · 发表于 2014-11-25 13:47:58

newer 发表于 2014-11-25 12:43
很容易，几行代码就行了，不过你需要先在论坛补补知识，怎么用这些代码

非常感谢。关于CAD以及一些插件，只会使用，不会编写。

newer · 发表于 2014-11-25 15:16:39

lxl217114 发表于 2014-11-25 13:47
非常感谢。关于CAD以及一些插件，只会使用，不会编写。

会使用就好。

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

向众位前辈求助，如何解决下面的问题

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

相关帖子

点评

点评