红箭头所指的蓝点为块的基点，如何让这些块能够自动基点间标注？

D_aiii · 发表于 2014-11-19 10:31:15

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

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

x

红箭头所指的蓝点为块的基点，如何让这些块能够自动基点间标注 QQ图片20141119103039.png

？

Free-Lancer · 发表于 2014-11-19 11:03:59

你标出个示意

newer · 发表于 2014-11-19 11:33:39

是啊，你手工标注的结果贴上来。

st788796 · 发表于 2014-11-19 11:45:38

本帖最后由 st788796 于 2014-11-19 11:50 编辑

xdrx_points_gethull 后用 xd::list:snakepair 再 mapcar xdrx_dimesion_makerotate

不构成凸包的只能用 xd::doc:getfence 描出路径后用 ssget f 选择，否则凹多边形没法定规则

iLisp · 发表于 2014-11-19 12:44:21

st788796 发表于 2014-11-19 11:45
xdrx_points_gethull 后用 xd::list:snakepair 再 mapcar xdrx_dimesion_makerotate

不构成凸包的只能 ...

凸包会忽略位于同一直线上的中间点，求出轮廓点后再构造fence选择才能不遗漏

st788796 · 发表于 2014-11-19 15:47:04

(defun c:tt (/ ss pts)
(defun pt->3d (p) (list (car p) (cadr p) 0.))
(if (setq ss (ssget '((0 . "insert"))))
(progn
(setq pts (mapcar '(lambda (x)
(xdrx_getpropertyvalue x "Position")
)
(xdrx_pickset->ents ss)
)
pts (xdrx_points_gethull pts)
pts (xd::pnts:close pts)
)
(mapcar '(lambda (x)
(xdrx_dimension_makerotate
(pt->3d (car x))
(pt->3d (cadr x))
(pt->3d (polar (apply 'xdrx_line_midp x)
(- (apply 'angle x) (* pi 0.5))
1500.0
)
)
(apply 'angle x)
)
)
(xd::list:snakepair pts)
)
)
)
(princ)
)

(defun c:tt (/ ss pts) 
  (defun pt->3d (p) (list (car p) (cadr p) 0.)) 
  (if (setq ss (ssget '((0 . "insert")))) 
    (progn 
      (setq pts        (mapcar        '(lambda (x) 
                           (xdrx_getpropertyvalue x "Position") 
                         ) 
                        (xdrx_pickset->ents ss) 
                ) 
            pts        (xdrx_points_gethull pts) 
            pts        (xd::pnts:close pts) 
      ) 
      (mapcar '(lambda (x) 
                 (xdrx_dimension_makerotate 
                   (pt->3d (car x)) 
                   (pt->3d (cadr x)) 
                   (pt->3d (polar (apply 'xdrx_line_midp x) 
                                  (- (apply 'angle x) (* pi 0.5)) 
                                  1500.0 
                           ) 
                   ) 
                   (apply 'angle x) 
                 ) 
               ) 
              (xd::list:snakepair pts) 
      ) 
    ) 
  ) 
  (princ) 
)

晓东CADlidoong · 发表于 2018-5-10 12:10:39

st788796 发表于 2014-11-19 15:47

这个LSP在CAD里面是什么命令运行，谢谢大神

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

[标注] 红箭头所指的蓝点为块的基点，如何让这些块能够自动基点间标注？

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

相关帖子

点评