求助模板自动注解程序，各位请进！
大家好，由于我是搞五金模具设计的，标注模板时涉及到注 解，但是已有的程序只能注解圆，不能注解异形，求一个圆及异形都能注解的程序，谢谢！不明白你的意思 要別人改造武器容易,還是重新打造武器容易 冲模外挂那么多，随便哪个都能自动标注模板。 不好意思，现在把这个程序的源码送上，帮修改下能标注除圆之外的多段线异形孔，谢谢！
(defun c:zm()
(princ "\n选择要进行统计的圆对象")
(setq ss (ssget (list (cons 0 "CIRCLE"))))
(setq pt (getpoint "\n选择输出基点:"))
(setq si 0 tx 65 px (car pt) py (cadr pt) li '() lii 0)
(setq os (getvar "osmode") om (getvar "cmdecho"))
(command "osmode" 0 "osmode" 0 "_.ucs" "w")
(repeat (sslength ss)
(setq cs (ssname ss si) ce (entget cs))
(setq cp (cdr (assoc 10 ce)))
(setq cr (cdr (assoc 40 ce)))
(if (setq lst (assoc cr li))
(setq ct (nth 1 lst) li (subst (list cr ct (1+ (nth 2 lst))) lst li))
(setq ct tx tx (1+ tx) li (cons (list cr ct 1) li))
)
(command "_.text" (polar cp (/ pi 4) (+ cr 1)) 3 0 (chr ct))
(command "_.chprop" "l" "" "p" "c" 6 "")
(setq si (1+ si))
)
(foreach l li
(setq cp (list px (+ py (* lii 5))) )
(setq cr (nth 0 l) ct (nth 1 l) cn (nth 2 l))
(command "_.text" cp 4 0 (strcat (chr ct) ":" (itoa cn) "-%%C" (rtos (* cr 2) 2)))
(command "_.chprop" "l" "" "p" "c" 6 "")
(setq lii (1+ lii))
)
(setvar "osmode" os)
(setvar "cmdecho" om)
(princ "\n统计完成!")
(princ)
)
DEFUN C:cbj ()
(PRINC "查直径及个数")
(setq ss (ssget ((0 . "CIRCLE"))))
(setq i 0 n 0 zj-j nil) (repeat (sslength ss) (setq el (entget (ssname ss i))) (setq zj (read (rtos (cdr (assoc 40 el)) 2 4))) 获得直径 (print zj) (setq zj-j (cons zj zj-j)) (print zj-j) (setq i (1+ i)) ) (setq zj-h (VL-SORT zj-j <)) (repeat (length zj-h) (setq zj-n (- (length zj-j) (length (vl-remove-if (lambda (x) (= x (nth n zj-h))) zj-j)))) (print (strcat "直径" (itoa (nth n zj-h)) " " (itoa zj-n) "个")) (setq n (1+ n)) ) (princ))
页:
[1]