画指北针 出图不一样 已解决

fsy124618

在插入时显示的倍数不同
出来的效果不同
不知道为什么
请高手指点啊？






源码下面就是

2. (defun c:zbz ( / mdpt xdpt yxdpt zxdpt pt1 pt2 pt3 pt4 pt5 pt6 ss1 ss2 ss3)
3. (print "欢迎使用biaoge124的指北针制定 \n 命令:zbz")
4. (setq mdpt (getpoint "\n 请确定插入点:"))
5. (setq ddpt (polar mdpt 1.5708 24.5))
6. (setq xdpt (polar mdpt 4.71239 11.5))
7. (setq yxdpt (polar xdpt 5.27099 18.868))
8. (setq zxdpt (polar xdpt 4.15379 18.868))
9. (setq pt1 (polar mdpt 4.36362 12.5))
10. (setq pt2 (polar mdpt 4.36362 15))
11. (setq pt5 (polar mdpt 1.63536 12.5))
12. (setq pt6 (polar mdpt 1.63536 15))
13. (setq pt3 (polar yxdpt 1.91957 7))
14. (setq pt4 (polar mdpt 0 2))
15. (command "_circle" mdpt 12.5 )
16. (command "_circle" mdpt 15 )
17. (command "_line" ddpt xdpt "")
18. (command "_line" xdpt yxdpt "")
19. (command "_line" xdpt zxdpt "")
20. (setq ss1 (entlast ))
21. (command "_line" ddpt zxdpt "")
22. (setq ss2 (entlast ))
23. (command "_line" ddpt yxdpt "")
24. (setq ss3 (entlast ))
25. (command "_trim" ss1 ss2 "" pt1 pt2 "")
26. (command "_trim" ss2 ss3 "" pt5 pt6 "")
27. (command "_bhatch" "p" "solid" pt3 pt4 "" )
28. )

(defun c:zbz ( / mdpt xdpt yxdpt zxdpt pt1 pt2 pt3 pt4 pt5 pt6 ss1 ss2 ss3) (print "欢迎使用biaoge124的指北针制定 \n 命令:zbz") (setq mdpt (getpoint "\n 请确定插入点:")) (setq ddpt (polar mdpt 1.5708 24.5)) (setq xdpt (polar mdpt 4.71239 11.5)) (setq yxdpt (polar xdpt 5.27099 18.868)) (setq zxdpt (polar xdpt 4.15379 18.868)) (setq pt1 (polar mdpt 4.36362 12.5)) (setq pt2 (polar mdpt 4.36362 15)) (setq pt5 (polar mdpt 1.63536 12.5)) (setq pt6 (polar mdpt 1.63536 15)) (setq pt3 (polar yxdpt 1.91957 7)) (setq pt4 (polar mdpt 0 2)) (command "_circle" mdpt 12.5 ) (command "_circle" mdpt 15 ) (command "_line" ddpt xdpt "") (command "_line" xdpt yxdpt "") (command "_line" xdpt zxdpt "") (setq ss1 (entlast )) (command "_line" ddpt zxdpt "") (setq ss2 (entlast )) (command "_line" ddpt yxdpt "") (setq ss3 (entlast )) (command "_trim" ss1 ss2 "" pt1 pt2 "") (command "_trim" ss2 ss3 "" pt5 pt6 "") (command "_bhatch" "p" "solid" pt3 pt4 "" ) )

xhq1954425

是不是由于捕捉造成的？加上三句试试！

(defun c:zbz ( / mdpt xdpt yxdpt zxdpt pt1 pt2 pt3 pt4 pt5 pt6 ss1 ss2 ss3)
    (setq osmode(getvar "osmode"))  
    (setvar "osmode" 0)
(print "欢迎使用biaoge124的指北针制定 \n 命令:zbz")
(setq mdpt (getpoint "\n 请确定插入点:"))
(setq ddpt (polar mdpt 1.5708 24.5))
(setq xdpt (polar mdpt 4.71239 11.5))
(setq yxdpt (polar xdpt 5.27099 18.868))
(setq zxdpt (polar xdpt 4.15379 18.868))
(setq pt1 (polar mdpt 4.36362 12.5))
(setq pt2 (polar mdpt 4.36362 15))
(setq pt5 (polar mdpt 1.63536 12.5))
(setq pt6 (polar mdpt 1.63536 15))
(setq pt3 (polar yxdpt 1.91957 7))
(setq pt4 (polar mdpt 0 2))
(command "_circle" mdpt 12.5 )
(command "_circle" mdpt 15 )
(command "_line" ddpt xdpt "")
(command "_line" xdpt yxdpt "")
(command "_line" xdpt zxdpt "")
(setq ss1 (entlast ))
(command "_line" ddpt zxdpt "")
(setq ss2 (entlast ))
(command "_line" ddpt yxdpt "")
(setq ss3 (entlast ))
(command "_trim" ss1 ss2 "" pt1 pt2 "")
(command "_trim" ss2 ss3 "" pt5 pt6 "")
(command "_bhatch" "p" "solid" pt3 pt4 "" ) 
    (setvar "osmode" osmode) 
)

fsy124618

具体为什么我还是不知道

就知道一点

修剪命令  应该是双元点来完成  而我这里是点来完成的

填充命令 在小显示下没问题，大显示下找不到填充边界，所以无法完成，要想完成可以选实体来完成，而我这里是点选的

我已经更改了一些

但是还是有问题的

没有达到我想要的那种

基本可以用

 

fsy124618

2. (defun c:zbz (/    mdpt xdpt yxdpt    zxdpt pt1 pt2 pt3 pt4 pt5 pt6 ss1 ss2
3.      ss3)
4. (setvar "cmdecho" 0)
5. (print "欢迎使用biaoge124的指北针制定 \n 命令:zbz")
6. (setq mdpt (getpoint "\n 请确定插入点:"))
7. (setq jdzbz (getreal "\n请确定北方向(竖直向上为0度，分+ -):"))
8. (setq sizeview (getvar "viewsize"))
9. (setq ctrview (getvar "viewctr"))
10. (command "zoom" "c" mdpt 52.6)
11. (if (not (tblsearch "layer" "bg指北针"))
12. (command "_layer" "m" "bg指北针" "c" "4" "" "")
13. )
14. (setq ddpt (polar mdpt 1.5708 24.5))
15. (setq xdpt (polar mdpt 4.71239 11.5))
16. (setq yxdpt (polar xdpt 5.27099 18.868))
17. (setq zxdpt (polar xdpt 4.15379 18.868))
18. (setq pt1 (polar mdpt 4.36362 12.5))
19. (setq pt2 (polar mdpt 4.36362 15))
20. (setq pt5 (polar mdpt 1.63536 12.5))
21. (setq pt6 (polar mdpt 1.63536 15))
22. (setq pt3 (polar yxdpt 1.91957 7))
23. (setq pt4 (polar mdpt 0 2))
24. (command "_circle" mdpt 12.5)
25. (command "_circle" mdpt 15)
26. (command "_line" ddpt xdpt "")
27. (command "_line" xdpt yxdpt "")
28. (command "_line" xdpt zxdpt "")
29. (setq ss1 (entlast))
30. (command "_line" ddpt zxdpt "")
31. (setq ss2 (entlast))
32. (command "_line" ddpt yxdpt "")
33. (setq ss3 (entlast))
34. (command "_trim" ss1 ss2 "" pt1 pt2 "")
35. (command "_trim" ss2 ss3 "" pt5 pt6 "")
36. (command "_bhatch" "p" "solid" pt3 pt4 "")
37. (command "zoom" "c" ctrview sizeview)
38. (setq sszbz (ssget "x" '((8 . "bg指北针"))))
39. (command "_rotate" sszbz "" mdpt jdzbz "")
40. (setvar "cmdecho" 0)
41. )

(defun c:zbz (/    mdpt xdpt yxdpt    zxdpt pt1 pt2 pt3 pt4 pt5 pt6 ss1 ss2      ss3) (setvar "cmdecho" 0) (print "欢迎使用biaoge124的指北针制定 \n 命令:zbz") (setq mdpt (getpoint "\n 请确定插入点:")) (setq jdzbz (getreal "\n请确定北方向(竖直向上为0度，分+ -):")) (setq sizeview (getvar "viewsize")) (setq ctrview (getvar "viewctr")) (command "zoom" "c" mdpt 52.6) (if (not (tblsearch "layer" "bg指北针")) (command "_layer" "m" "bg指北针" "c" "4" "" "") ) (setq ddpt (polar mdpt 1.5708 24.5)) (setq xdpt (polar mdpt 4.71239 11.5)) (setq yxdpt (polar xdpt 5.27099 18.868)) (setq zxdpt (polar xdpt 4.15379 18.868)) (setq pt1 (polar mdpt 4.36362 12.5)) (setq pt2 (polar mdpt 4.36362 15)) (setq pt5 (polar mdpt 1.63536 12.5)) (setq pt6 (polar mdpt 1.63536 15)) (setq pt3 (polar yxdpt 1.91957 7)) (setq pt4 (polar mdpt 0 2)) (command "_circle" mdpt 12.5) (command "_circle" mdpt 15) (command "_line" ddpt xdpt "") (command "_line" xdpt yxdpt "") (command "_line" xdpt zxdpt "") (setq ss1 (entlast)) (command "_line" ddpt zxdpt "") (setq ss2 (entlast)) (command "_line" ddpt yxdpt "") (setq ss3 (entlast)) (command "_trim" ss1 ss2 "" pt1 pt2 "") (command "_trim" ss2 ss3 "" pt5 pt6 "") (command "_bhatch" "p" "solid" pt3 pt4 "") (command "zoom" "c" ctrview sizeview) (setq sszbz (ssget "x" '((8 . "bg指北针")))) (command "_rotate" sszbz "" mdpt jdzbz "") (setvar "cmdecho" 0) )

xhq1954425

抱歉！我以为你是问 为什么选择不同的插入点得到不同的图形呢？

狂刀lxx

(command "_bhatch" "p" "solid" pt3 pt4 "" )

用solid替代bhatch更稳定