chengx2000 发表于 2011-7-24 09:15:00

回复 neverstop 的帖子

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

QWQWQWQ 发表于 2012-2-24 17:35:50

找到 了，谢谢

s678z 发表于 2012-5-25 13:05:52

neverstop 发表于 2011-7-1 23:09 static/image/common/back.gif
(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)
)

注册 发表于 2012-5-26 14:30:35

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

注册 发表于 2012-5-26 14:31:08

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

qwe4250 发表于 2017-9-9 13:16:23

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


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

luoposhusheng7 发表于 2024-3-19 13:15:42

如果能把图纸比例的因素放进去就完美了
页: 1 [2]
查看完整版本: 能否有LISP实现以下带圈数字递增复制功能，请高手帮忙：）