运行属性块提示嵌套块定义有问题

hushengjun

(Defun C:a()
   (Setq Blc (* (/ (Getvar "Userr1") 1000.0) 1.0))
   (Setq Scale Blc)
   (Setq P1 (List 200 200 2.356))
   (Setq Height (Caddr P1))
   (Entmake (List
              '(0 . "Insert")
              '(100 . "Acdbentity")
              '(100 . "Acdbblockreference")
              '(66 . 1);;;属性跟随标志,1跟随，0不跟随
             (Cons 2 "Gc200")
              (Cons 10 P1)
              (Cons 8 "Gcd")
              (Cons 41 Scale)                ;Scale比例大小
             (Cons 42 Scale)                ;Scale比例大小
             (Cons 43 Scale)                ;Scale比例大小
             '(-3 ("South" (1000 . "202101")))
            )
   )
;;;插入属性
  (Entmake (List
              '(0 . "Attrib")
              '(100 . "Acdbentity")
              '(100 . "Acdbtext")
              (Cons 10 (Setq Pt (Polar P1 0 (* 1.2 Scale))))
                                         ;Scale比例大小
             (Cons 40 (* 2.0 Scale))        ;Scale比例大小
             (Cons 50 0)
              (Cons 41 0.8)
              (Cons 51 0)
              (Cons 1 "Height")
             (Cons 7 "Hz")
              (Cons 72 0)
              (Cons 11 Pt)
              '(100 . "Acdbattribute")
              (Cons 2 "Height")
              (Cons 70 0)
              (Cons 74 2)
            )
   )
;;;结束标志
  (Entmake '((0 . "ENDBLK)))
)


在2013上运行时，没提示有错，但计算不出结果，好象出现了提示嵌套块定义有问题，有谁知道怎么解决吗

xsso

见识浅不明白要做什么，帮顶

ll_j

你把前面的“Insert”换成“BLOCK”试试，后面的“Attrib”也应该全用大写。

skg123

   (Setq Height(Caddr P1)) 修改成  (Setq Height (rtos(Caddr P1) 2 3))