带对话框的圆坐标列表程序

liu22737

 回复七楼：

忘记加载我的通用函数；

我又传一个。你再试一下。

不支持中文图层

HuaiYu

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

HuaiYu

请yedajiang兄指点

(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
)

[/QUOTE]

yedajiang

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

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

liu22737

？

jbaobao

求助，自动画三视图LISP

redboy008

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

redboy008

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

linheyuanpcb

谢谢,下载用了

董堃

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