[讨论]：请高手修改下列lsp程序：将选中的圆一次性加上中心线

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