[讨论]关于所有圆一次加上中心线的问题

zhd81617

请高手帮忙看下面的程序代码，为什么总是提示不成功呢？

(defun CMDLA0 ()
  (setq cmdech (GETVAR "CMDECHO"))
  (setq oom (getvar "orthomode"))
  (setq osm (getvar "osmode"))
  (SETQ LA (getvar "clayer"))
  (setvar "regenmode" 1)
  (SETVAR "CMDECHO" 0)
  (princ)
  )

(defun CMDLA1 ()
  (SETVAR "CMDECHO" cmdech)
  (setvar "orthomode" oom)
  (setvar "osmode" osm)
  (setvar "clayer" LA)
  (setvar "regenmode" 1)
  (princ)
  )

;;; 每个圆心插入垂直交叉直线
  (defun c:cl ()
    (CMDLA0)
    (setq ss (ssget '((0 . "CIRCLE")))
   i  -1
    )
    (mkla "中心线" 1)
    (while (setq s1 (ssname ss (setq i (1+ i)))))
      (setq p0 (cdr (assoc 10 (entget s1)))
     l  (cdr (assoc 40 (entget s1)))
      )
      (xyp_szx p0 (* l 0.25))  ; 0.25倍直径
    )
    (CMDLA1)
  )
)

(Defun MKLA (a b)
  (If (= (Tblsearch "layer" a) nil)
    (Command "layer" "m" a "c" b a "")
    (Command "layer" "t" a "s" a "c" b a "")
    )
  )

phoenixdjq

这个是我以前做的

(defun c:df()
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq ss (ssget '((0 . "CIRCLE"))))
(setq len (sslength ss))
(setq n 0)
(command "undo" "begin")
(repeat len
(setq ent (ssname ss n))
(setq dxf (entget ent))

(setq yuanxin (trans (cdr (assoc 10 dxf)) 0 1))
(setq banjing (cdr (assoc 40 dxf)))
(setq waiyan (* banjing 1.5))

(setq p1 (polar yuanxin pi waiyan))
(setq p2 (polar yuanxin 0 waiyan))
(setq p3 (polar yuanxin (/ pi 2) waiyan))
(setq p4 (polar yuanxin (* 1.5 pi) waiyan))
(command "line" p1 p2 "")
(setq last1 (entlast))
(command "line" p3 p4 "")
(setq last2 (entlast))
(setq n (+ 1 n))
)
(command "undo" "end")
(setvar "osmode" os)
(princ)
)

zhd81617

uno0802

1681008

看看
谢谢~

zhd81617

好帖

yoyoho

感谢phoenixdjq楼主分享源码程序 < 谢谢! >

aytxq

回复 phoenixdjq 的帖子

如果你的中心線都是同一規格的，只要在程序中加入先行刪除就可以了

lenlenq

zhd81617 发表于 2008-11-23 10:30
请高手帮忙看下面的程序代码，为什么总是提示不成功呢？(defun CMDLA0 ()&nbsp; (setq cmdech (GETVAR "CMD ...

初一看，缺少自定义函数xyp_szx

zhongys

圆中心线好写，关键在于如何判断同心圆，同心圆与圆弧，同心圆弧，如果这个处理好了就是一个非常好用的程式。