非常感谢asdfxx大哥的解答 我用上面的那段组码创建出来的多段线为什么起点宽度是0 还请大哥帮我看一下这个创建图块程序问题何在 (defun c:qq() (tblsearch "BLOCK" "TL-11") (progn (entmake '((0 . "block") (2 . "TL-11") (70 . 0) (10 0.0 0.0 0.0) ) ) (EntMake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(8 . "0") '(100 . "AcDbPolyline") '(90 . 2) '(70 . 0) (list 10 -6 1.5) '(40 . 0.0) '(41 . 0.5) '(42 . 0.0) (list 10 -1 1.5) '(40 . 0.0) '(41 . 0.0) '(42 . 0.5) ) ) (entmake '((0 . "ENDBLK"))) ) ) |