初始化标注尺寸“界线”为建筑短斜线
本帖最后由 尘缘一生 于 2017-8-23 10:23 编辑建筑画图为短斜线，而CAD自带的那个“建筑标记”太细了，不理想，为此，写了段代码，单独调试成功，和其他LSP一起调试就提示错误“参数类型错误 ，二维点/三维点 0”，贴上大家看看，毛病在哪里呢？
(defun csdim (/ pt1 pt2 pt3)
(if (null (ssget "x" (list (cons 0 "insert") (cons 2 "jdimblk"))))
(progn
(setq pt1 (nth 1 (grread 5)))
(setq pt2 (polar pt1(/ pi 4) 0.71))
(setq pt3 (polar pt1 (+ (/ pi 4)pi) 0.71))
(command "_.PLINE" pt2 "W" 0.45 "" pt3 "")
(command "block" "jdimblk" pt1 (entlast) "")
)
)
(command "dimblk" "jdimblk");;;;设置尺寸线或引线末端显示的箭头块
)
(csdim)
cad系统为 2010 64位，win7旗舰64位。
(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
感谢，代码调试成功了。
页:
[1]