付费框选使得

1227588 · 发表于 2020-5-15 10:05

大概思路是框选然后获取每个点的坐标然后bo出来依次排序
根据排序自动编号并且把长宽尺寸都写出来还能统计量汇总参考源泉abh

1227588 · 发表于 2020-5-15 10:06

(defun c:tt()
  (setq ss (ssget))
  (setq i 0)
  (repeat (sslength ss)
  (SETQ pt1 (Vlax-Invoke-Method (Vlax-Ename->Vla-Object (ssname ss i)) 'GetBoundingBox 'pa 'pb  ))
  (setq pointlist (vlax-safearray->list pa))
  (setq pt1 pointlist)
  (setq pointlist (vlax-safearray->list pb))
  (setq pt2 pointlist)
  (setq ang (angle pt1 pt2 ))
  (setq yx (/ (setq jl (distance pt1 pt2 ))2))
  (setq yxd (polar pt1 ang yx ))
  (setq i (1+ i ))
  (command "MTEXT" yxd  "h" "350" "w"  "0"  i  "")
  )
)

1227588 · 发表于 2020-5-15 10:07

我这个只能是图元的编号不能排序希望能完善

mahuan1279 · 发表于 2020-5-16 10:06

是按什么规则来排序？是对矩形排序还是对点排序？

1227588 · 发表于 2020-5-16 14:39

都可以对交点进行排序或者取点进行排序都可以达到同样的目的

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

付费框选使得

本帖子中包含更多资源