simon8001 发表于 2013-5-13 10:01:55

为什么插入属性块后cad里没有图显示？

(defun c:swsb1()
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setq z (list 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21))
(command "insert" "C:\\Documents and Settings\\技术开发部专用1\\桌面\\进行中的工作\\QJ" (list 0 0) 1 1 0 z)
)

simon8001 发表于 2013-5-13 10:11:55

我解决了这个问题！ 原来是我没有把Z的值赋给块里的属性！(defun c:swsb1 ()
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setq att-n 0)
(setq z (list 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21))
(command
    "insert"
    "C:\\Documents and Settings\\技术开发部专用1\\桌面\\进行中的工作\\QJ"
    (list 0 0)
    1
    1
    0
)
(repeat 21      
    (setq att-txt (nth att-n z))
    (command att-txt)
    (setq att-n (1+ att-n))
)
)

vlisp2012 发表于 2013-5-13 21:46:01

哈哈！！！
页: [1]
查看完整版本: 为什么插入属性块后cad里没有图显示？