zhoujun518 发表于 2008-2-16 18:25:00

[求助]线性标注如何用LISP生成呀？为什么跟对齐不一样的

本帖最后由 作者 于 2008-2-16 18:26:56 编辑 <br /><br /> <p>我写的代码可以生成对齐尺寸标注，为什么生不成线性标注呀？70号组码改成32</p><p>为什么就不行了？请那位大虾帮我改一下，顺便说明一下差别。谢谢</p><p>&nbsp; (setq&nbsp;&nbsp;<br/>&nbsp;dim_text&nbsp;"100"<br/>&nbsp;ctrl_pt&nbsp;'(45200.0 -93576.0)<br/>&nbsp;dim_pt1&nbsp;'(35200.0 -98080.0)<br/>&nbsp;dim_pt2&nbsp;'(45200.0 -98080.0)<br/>&nbsp;color&nbsp;0<br/>&nbsp; )<br/>&nbsp; (entmake<br/>&nbsp;&nbsp;&nbsp; (append '((0 . "DIMENSION")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (100 . "AcDbEntity")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (8 . "0")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (100 . "AcDbDimension")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; (list (cons 1 dim_text)<br/>&nbsp;&nbsp;&nbsp; (cons 3 (strcat "PT_Dim" (rtos scale 2 2)))<br/>&nbsp;&nbsp;&nbsp; (cons 10 (trans ctrl_pt 1 0))<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; '((11 0 0 0)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (70 . 33)&nbsp;&nbsp;&nbsp;;线性标注<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (100 . "AcDbAlignedDimension")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; (list (cons 13 (trans dim_pt1 1 0))<br/>&nbsp;&nbsp;&nbsp; (cons 14 (trans dim_pt2 1 0))<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )</p>
页: [1]
查看完整版本: [求助]线性标注如何用LISP生成呀？为什么跟对齐不一样的