麻烦各位高手帮忙
麻烦各位高手帮忙，把下面的程序修改一下，改为螺钉，现在是螺纹孔，我想改为图片所示的样子，见图片：(defun c:TT(/)
(setvar "CMDECHO" 0)
(setq M (getDIST "\n 请输入螺纹规格 M8输入8"))
(if (= M nil) (setq M 8))
(cond
((<= 1.1 M 2) (SETQ c 2 d 1.6))
((<= 2.1 M 2.5) (SETQ c 2.5 d 2))
((<= 2.6 M 3) (SETQ c 3.0 d 2.4))
((<= 3.1 M 4) (SETQ c 4.0 d 3.2))
((<= 4.1 m 5) (SETQ c 5.0 d 4))
((<= 5.1 m 6) (SETQ c 6.0 d 4.8))
((<= 6.1 M 8) (SETQ c 8.0 d 6.4))
((<= 8.1 M 10) (SETQ c 10.0 d 8))
((<= 10.1 M 12) (SETQ c 12.0 d 9.6))
((<= 12.1 M 14) (SETQ c 14.0 d 11.2))
((<= 14.1 M 16) (SETQ c 16.0 d 12.8))
)
(while (SETQ PT (GETPOINT "\n请选取插入点:"))
(setq p1 (polar pt (/ pi -6) (/ c 2))
p2 (polar pt (/ pi 3) (/ c 2))
p3 (polar pt 0 (+ (/ c 2) 0.5));比直径长1
p4 (polar pt pi (+ (/ c 2) 0.5))
p5 (polar pt (/ pi 2) (+ (/ c 2) 0.5))
p6 (polar pt (/ pi -2) (+ (/ c 2) 0.5)))
(command "_.CIRCLE" "none" pt (/ d 2) p1)
(command "change" "l" "" "p" "la" "0" "")
(command "_.ARC" "none" p2 "C" "none" pt "none" p1)
(command "change" "l" "" "p" "la" "细实线" "")
(command "_.LINE" "none" p3 "none" p4 "" "_.CHPROP" "L" "" "lt" "bylayer" "lts" 1 "")
(command "change" "l" "" "p" "la" "点划线" "")
(command"_.LINE" "none" p5 "none" p6 "" "_.CHPROP" "L" "" "lt" "bylayer" "lts" 1 "")
(command "change" "l" "" "p" "la" "点划线" "")
)
(setvar "CMDECHO" 1)
(princ)
)
页:
[1]