社区 › AutoLISP/Visual LISP 编程技术 › [方圆工具箱]属性修改（开放源码）更新有新帖

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

感觉很好很好

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

LISP源码，顶

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

支持原创，谢谢！

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

回复 ghgh0130 的帖子

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

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

本帖最后由 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:35

支持分享源码

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

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

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

好的谢谢 分享

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

谢谢分享,顶下先

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

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

查看完整版本: [方圆工具箱]属性修改（开放源码）更新有新帖