autolisp工字钢支腿部分是怎么画啊

c332493202

刚刚学习lisp，想画个工字钢，可是支腿部分有圆弧，该怎么处理呢？还请前辈指教，谢谢。

edata

command函数方法

2. (command "pline" pause "non" "@67.5,0" "non" "@0,0.9" "a" "non" "@-3.6,3.6" "l" "non" "@-24.3,0" "a" "non" "@-3.6,3.6" "l"
   
3.          "non" "@0,83.8" "a" "non" "@3.6,3.6" "l" "non" "@24.3,0" "a" "non" "@3.6,3.6" "l" "non" "@0,0.9" "non" "@-67.5,0" "non" "@0,-0.9"
   
4.          "a" "non" "@3.6,-3.6" "l" "non" "@24.3,0" "a" "non" "@3.6,-3.6" "l" "non" "@0,-83.8" "a" "non" "@-3.6,-3.6" "l"
   
5.          "non" "@-24.3,0" "a" "non" "@-3.6,-3.6" "l" "c")

(command "pline" pause "non" "@67.5,0" "non" "@0,0.9" "a" "non" "@-3.6,3.6" "l" "non" "@-24.3,0" "a" "non" "@-3.6,3.6" "l"<br />          "non" "@0,83.8" "a" "non" "@3.6,3.6" "l" "non" "@24.3,0" "a" "non" "@3.6,3.6" "l" "non" "@0,0.9" "non" "@-67.5,0" "non" "@0,-0.9"<br />          "a" "non" "@3.6,-3.6" "l" "non" "@24.3,0" "a" "non" "@3.6,-3.6" "l" "non" "@0,-83.8" "a" "non" "@-3.6,-3.6" "l"<br />          "non" "@-24.3,0" "a" "non" "@-3.6,-3.6" "l" "c")