初始化标注尺寸“界线”为建筑短斜线

尘缘一生

       建筑画图为短斜线，而CAD自带的那个“建筑标记”太细了，不理想，为此，写了段代码，单独调试成功，和其他LSP一起调试就提示错误  “参数类型错误 ，二维点/三维点   0”，贴上大家看看，毛病在哪里呢？

1. (defun csdim (/ pt1 pt2 pt3)
   
2.   (if (null (ssget "x" (list (cons 0 "insert") (cons 2 "jdimblk"))))
   
3.     (progn        
   
4.      (setq pt1 (nth 1 (grread 5)))        
   
5.       (setq pt2 (polar pt1  (/ pi 4) 0.71))
   
6.       (setq pt3 (polar pt1 (+ (/ pi 4)  pi) 0.71))
   
7.       (command "_.PLINE" pt2 "W" 0.45 "" pt3 "")
   
8.       (command "block" "jdimblk" pt1 (entlast) "")  
   
9.     )
   
10.   )
    
11. (command "dimblk" "jdimblk")  ;;;;设置尺寸线或引线末端显示的箭头块
    
12. )
    
13. (csdim)

(defun csdim (/ pt1 pt2 pt3)<br />   (if (null (ssget "x" (list (cons 0 "insert") (cons 2 "jdimblk"))))<br />     (progn        <br />      (setq pt1 (nth 1 (grread 5)))        <br />       (setq pt2 (polar pt1  (/ pi 4) 0.71))<br />       (setq pt3 (polar pt1 (+ (/ pi 4)  pi) 0.71))<br />       (command "_.PLINE" pt2 "W" 0.45 "" pt3 "")<br />       (command "block" "jdimblk" pt1 (entlast) "")  <br />     )<br />   )<br /> (command "dimblk" "jdimblk")  ;;;;设置尺寸线或引线末端显示的箭头块<br /> )<br /> (csdim)

cad系统为 2010 64位，win7旗舰64位。

xyp1964

(defun csdim (/ p1 p2 p3)
  (if (null (tblobjname "block" "jdimblk"))
    (progn
      (setq p1 '(0 0)
            p2 (polar p1 (* pi 0.25) 1)
            p3 (polar p1 (* pi 1.25) 1)
      )
      (command "PLINE" "non" p3 "W" 0.5 "" "non" p2 "")
      (command "block" "jdimblk" "non" p1 (entlast) "")
    )
  )
  (setvar "dimblk" "jdimblk")
)
(csdim)

尘缘一生

xyp1964 发表于 2017-8-23 11:17
(defun csdim (/ p1 p2 p3)
  (if (null (tblobjname "block" "jdimblk"))
    (progn

感谢，代码调试成功了。