[方圆工具箱]属性修改（开放源码）更新有新帖

micotam · 发表于 2011-4-7 09:16

感觉很好很好

198526 · 发表于 2011-4-9 18:38

LISP源码，顶

cable2004 · 发表于 2011-4-12 01:14

支持原创，谢谢！

yxl88168 · 发表于 2011-4-12 18:27

回复 ghgh0130 的帖子

楼主，看到你的程序中的那个查坐标原点很好用，能单独发一个坐标原占点检查的吗

ghgh0130 · 发表于 2011-4-12 19:25

本帖最后由 ghgh0130 于 2011-4-12 19:26 编辑

(defun c:oo (/ ss nn p1 p2 ob)
  (while (setq ss (ssget '((0 . "DIMENSION"))))
(repeat (setq nn (sslength ss))
   (setq ob (ssname ss (setq nn (1- nn))))
   (and (= "AcDbOrdinateDimension" (vla-get-objectname (vlax-ename->vla-object ob)))
(setq p1 (cons (cdr (assoc 10 (entget ob))) p1))
   )
)
(setq p2 nil)
(while p1
   (setq p2 (cons (car p1) p2)
   p1 (vl-remove (car p1) p1)
   )
)
(princ "\n共发现")
(princ (length p2))
(princ "个原点:")
  )
)

13579 · 发表于 2011-4-13 08:59

支持分享源码

tyzhi222 · 发表于 2011-4-14 11:00

学习学习楼主的编程思想。谢谢楼主的源码分享。

lichunyu · 发表于 2011-4-24 14:10

好的谢谢分享

yzr2002626 · 发表于 2011-6-26 02:10

谢谢分享,顶下先

andyding · 发表于 2011-8-2 15:41

没有函数定义：COM_IFOB，楼主，好人做到底好不好啊？

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

[资源] [方圆工具箱]属性修改（开放源码）更新有新帖