能否有LISP实现以下带圈数字递增复制功能，请高手帮忙：）

chengx2000

回复 neverstop 的帖子

请问 (COMMAND "PICKBOX" "6")是什么意思，查了一下pickbox系统变量的解释：以像素为单位设置对象选择目标的高度。但是还是没能理解，请楼主赐教！

QWQWQWQ

找到 了，谢谢

s678z

neverstop 发表于 2011-7-1 23:09
(defun c:no()
  (prompt  "\n*********neverstop->编号*********\n")
  (princ)

把圆改直线可有办法，下面程序是直线编号，但号码是每次要输入的，能否改成像上面的程序自动+1的编号
(defun c:n (/ p1 p2 p3 txt)
  (if (= scalefactor nil) (setq scalefactor (getreal "\nPlease input scalefactor:")))(setvar "osmode" 0)  
  (setq p1 (getpoint "\nInput P1: "))
  (setvar "osmode" 512)
  (setq p2 (getpoint p1 "\nInput P2: "))
  (setvar "osmode" 0)
  (setq p3 (getpoint p2 "\nInput P3: "))
  (setq txt (getstring "\nNumber: "))
  (setq angle1 (angle p2 p3))
    (COND ((< (/ pi 2) angle1 (* (/ 3.0 2) pi)) (command "pline" p1 p2 (polar p2 pi (* 5 scalefactor)) "")
                                                (command "text" "j" "bc" (polar p2 pi (/ (* 5 scalefactor) 2)) (* 5 scalefactor) 0 txt ""))
          ((or (< (* (/ 3.0 2) pi) angle1 (* pi 2)) (< 0 angle1 (/ pi 2)) (EQUAL angle1 0))
                                                (command "pline" p1 p2 (polar p2 0 (* 5 scalefactor)) "")
                                                (command "text" "j" "bc" (polar p2 0 (/ (* 5 scalefactor) 2)) (* 5 scalefactor) 0 txt ""))
    )
  (command "change" "l" "" "p" "la" "文字标注层" "")
  (princ)
  (setvar "osmode" 167)
)

注册

这个论坛真的有，我已经在用

注册

命令: nn
欢迎使用文字或属性块连续增量拷贝程序! GYSJY  2008.12.16

qwe4250

neverstop 发表于 2011-7-1 23:09
(defun c:no()
  (prompt  "\n*********neverstop->编号*********\n")
  (princ)

好程序，但是少了个控制圈直径

luoposhusheng7

如果能把图纸比例的因素放进去就完美了