一个BOM。欢迎指点

zhongys

(defun c:bom(/ old_la old_os ra num ddr pt1 pt2 ang dist1 pp)
  (setvar "cmdecho" 0)
  (setq old_la (getvar "clayer"))
  (setq old_os (getvar "osmode"))
  (setq ra 5)
  (setq num (getint "\n输入序号<1>:"))
  (if (= num nil) (setq num 1))
  (setq ddr 1)
  (setq pt1 (getpoint "\n起始点:"))
    (while (/= pt1 nil)
      (setvar "osmode" 0)
      (setvar "clayer" "bom")
      (command  "donut" 0 ddr pt1 "")
      (setq pt2 (getpoint pt1 "\n另一点:"))
      (command "pline" pt1 pt2)
      (setq ang (angle pt1 pt2))
      (setq dist1 (distance pt1 pt2))
      (setq pp (polar pt1 ang (- dist1 ra)))
      (command "u" pp "")
      (command "circle" pt2 ra)
      (command "text" "m" pt2 ra 0 num)
      (setq num (1+ num))
      (setq pt1 (getpoint "\n起始点:"))
    )
  (setvar "osmode" old_os)
  (setvar "clayer" old_la)
  (princ)
  )


注意：本程序须得有BOM层。不然达不到理想效果。
另：如果有合理指点另有精彩程式送。E-MAIL：ZYS@ROSSMAX.COM.TW

runkeji

(defun c:bom(/ old_la old_os ra num ddr pt1 pt2 ang dist1 pp)
  (setvar "cmdecho" 0)
  (setq old_la (getvar "clayer"))
  (setq old_os (getvar "osmode"))
  (setq ra 5)
  (setq num (getint "\n输入序号<1>:"))
  (if (= num nil) (setq num 1))
  (setq ddr 1)
  (setq pt1 (getpoint "\n起始点:"))
    (while (/= pt1 nil)
      (setvar "osmode" 0)
      (setvar "clayer" "bom")    ；；； CLAYER   当前层变量  只读
      (command  "donut" 0 ddr pt1 "")
      (setq pt2 (getpoint pt1 "\n另一点:"))；；； 语法错误
      (command "pline" pt1 pt2)
      (setq ang (angle pt1 pt2))
      (setq dist1 (distance pt1 pt2))
      (setq pp (polar pt1 ang (- dist1 ra)))
      (command "u" pp "")
      (command "circle" pt2 ra)  ；；；画圆的方式选择
      (command "text" "m" pt2 ra 0 num)
      (setq num (1+ num))
      (setq pt1 (getpoint "\n起始点:"))
    )
  (setvar "osmode" old_os)
  (setvar "clayer" old_la)
  (princ)
  )


   能不能 讲的具体一点，程序是要完成什么的。 再检查好吗？

runkeji

(defun c:bom(/ old_la old_os ra num ddr pt1 pt2 ang dist1 pp)
  (setvar "cmdecho" 0)
  (setq old_la (getvar "clayer"))
  (setq old_os (getvar "osmode"))
  (setq ra 5)
  (setq num (getint "\n输入序号<1>:"))
  (if (= num nil) (setq num 1))
  (setq ddr 1)
  (setq pt1 (getpoint "\n起始点:"))
    (while (/= pt1 nil)
      (setvar "osmode" 0)
      (setvar "clayer" "bom")
      (command  "donut" 0 ddr pt1 "")
      (setq pt2 (getpoint pt1 "\n另一点:"))
      (command "pline" pt1 pt2)
      (setq ang (angle pt1 pt2))
      (setq dist1 (distance pt1 pt2))
      (setq pp (polar pt1 ang (- dist1 ra)))
      (command "u" pp "")；；；怎么把画多义线的操作取消了
      (command "circle" pt2 ra)
      (command "text" "m" pt2 ra 0 num)
      (setq num (1+ num))
      (setq pt1 (getpoint "\n起始点:"))
    )
  (setvar "osmode" old_os)
  (setvar "clayer" old_la)
  (princ)
  )

   程序大概是画圆环在圆内标注输入的序号，依次加 1  。
   多义线应该是作为引线的的吧

meflying

似乎你说的错误都不是错误吧

runkeji

对呀，有的不是错误


    （SETQ  A （GETPOINT  B ））

    这个我怎么认为不对呢？

runkeji

CLAUER  是一个只读的系统变量

   能够  （SETVAR   ”CLAYER“  ”BOM“） 吗？

runkeji

原程序没有问题。我的不对。