带对话框的圆坐标列表程序 - AutoLISP/Visual LISP 编程技术 - AutoCAD论坛 - 明经CAD社区 - 第2页

liu22737 发表于 2005-9-15 20:05:00

源码

本帖最后由作者于 2005-9-15 20:44:52 编辑  回复七楼：
忘记加载我的通用函数；
我又传一个。你再试一下。
不支持中文图层

HuaiYu 发表于 2005-9-15 23:14:00

小兄弟，你用的图层有点象富金的图层似的

HuaiYu 发表于 2005-9-16 23:09:00

请<A name=56959>yedajiang</A>兄指点
(defun c:test (/ lst)   (vl-load-com)   (if (ssget '((0 . "circle")))     (progn       (setq *AcadDocument* (vla-Get-ActiveDocument (vlax-Get-Acad-Object)))       (vla-StartUndoMark *AcadDocument*)       (if (setq lst (GetLst))  (Display lst)       )       (vla-EndUndoMark *AcadDocument*)     )   ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun Display (lst / TextPt i pt Text StrDia Dia)   (while (not (setq TextPt (Getpoint "\nPlease Specify a point : "))))   (setq old_cmdecho (getvar "cmdecho")  old_osmode  (getvar "osmode")   )   (setvar "cmdecho" 0)   (setvar "osmode" 0)   (setq i 0)   (foreach en lst     (setq pt   (vlax-safearray->list    (vlax-variant-value (vla-get-center (vlax-ename->vla-object (handent (cadr en)))))         )    i    (1+ i)    Text (strcat "No" (itoa i))     )     (command "text" pt 3.5 0 Text)     (setq StrDia "")     (foreach hn (cdr en)       (setq Dia    (vla-Get-Diameter (vlax-ename->vla-object (handent hn)))      StrDia (strcat strDia " " (rtos Dia 2 2))       )     )     (setq StrDia (strcat Text " " (rtos (car pt) 2 2) " " (rtos (cadr pt) 2 2) " " strDia))     (setq TextPt (list (car TextPt) (- (cadr TextPt) 6)))     (command "text" TextPt 3.5 0 StrDia)   )   (setvar "cmdecho" old_cmdecho)   (setvar "osmode" old_osmode) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun GetLst (/ ss pt hand lst)   (setq ss (vla-Get-ActiveSelectionset *AcadDocument*))   (setq lst '())   (vlax-for en ss     (setq pt   (vlax-safearray->list (vlax-variant-value (vla-get-center en)))    hand (vla-get-handle en)     )     (if (assoc pt lst)       (setq lst (subst (append (assoc pt lst) (list hand)) (assoc pt lst) lst))       (setq lst (append lst (list (list pt hand))))     )   )   lst )

yedajiang 发表于 2005-9-17 10:12:00

HuaiYu发表于2005-9-16 23:09:00static/image/common/back.gif
请yedajiang兄指点
(defun c:test (/ lst)(vl-load-com)(if (...

后天就要出差了，可能没有空详细去理解你程序。十月份回来后一定给你提些建议。请你自己也多关注。

liu22737 发表于 2005-9-24 22:28:00

哪个富金，富士康吗

？

jbaobao 发表于 2006-2-5 18:56:00

求助，自动画三视图LISP

redboy008 发表于 2007-12-30 19:43:00

谢谢大大，我想学，可不知道怎么开始，唉～！

redboy008 发表于 2007-12-30 20:00:00

个人比较喜欢liu22737大大编写的，其他大大的我用不会啊。

linheyuanpcb 发表于 2008-4-26 15:02:00

谢谢,下载用了

董堃发表于 2008-5-6 07:02:00

谢谢，我喜欢源码来的，能够学习学习吗

页: 1 [2] 3 4

明经CAD社区's Archiver

源码

哪个富金，富士康吗