程序画虚线问题

szx025

(if (not (tblobjname "ltype" "DASH"))
        (command "-linetype" "L" "DASH" "acadiso.lin" "")
      )


(command "-layer" "m" "虚线" "l" "DASH"  "虚线" "C" "7" """")
        (setvar "clayer" "虚线")  
(command "._line" Idd1 Idd3 "")  ;画梁线
(command "._line" Idd2 Idd4 "")  ;画梁线

这样画出的虚线显示为实线，应该是线型比例问题，有号办法解决吗
再请教一个问题 (mapcar '(lambda (x y) (* (+ x y) 0.5)) pt1 pt2)这里的0.5改为0.7等其它数字，程序不能运行，不好理解啊

自贡黄明儒

线型比例问题可能不好解决，同样程序，各版本表现都不一致。
(mapcar '(lambda (x y) (* (+ x y) 0.5)) pt1 pt2)就是求中点，改为0.7应该照样运行

szx025

自贡黄明儒 发表于 2022-4-20 10:52
线型比例问题可能不好解决，同样程序，各版本表现都不一致。
(mapcar '(lambda (x y) (* (+ x y) 0.5)) p ...

我也认为应该可以改，但改了程序就是不能运行

2. (defun C:zjpt (/  en  pt1 pt2 ptt1 ptt2 ptt3 ptt4  pttt1  pttt2  pttt3  pttt4 I2 Id Id1 Id2 Idd1 Idd2 Idd3  Idd4 ss pd1 k1 k2 k3 k4 ku1  L)
   
3. (setq en (car (entsel "\n选择踏步直线:"))
   
4.         pt1 (cdr (assoc 10 (entget en)))
   
5.         pt2 (cdr (assoc 11 (entget en)))
   
6.         ku1 (angle pt1 pt2)
   
7.         Id (mapcar '(lambda (x y) (* (+ x y) 0.5)) pt1 pt2)
   
8.         I2 (polar Id (+ ku1 (* pi 0.7)) 620)
   
9.         ss  (ssget "f" (list Id I2) '((8 . "楼梯" )))
   
10.         )
    
11.   (if (> (sslength ss) 4)
    
12.     (setq k1 (+ ku1 (+ pi (* pi 0.5))))
    
13.     (setq k1 (+ ku1 (* pi 0.5)))
    
14.     )
    
15. (setq k2 (+ k1 pi))  
    
16. (setq k3 (+ k1 (* pi 0.5)))
    
17. (setq k4 (+ k1 (+ pi (* pi 0.5))))
    
18. (setq L (distance pt1 pt2))
    
19. (setq pd1 (polar Id k1 L))
    
20. (setq ptt1 (polar  pd1 k3 (+ 70 (* L 0.5)))) ;平台边线点
    
21. (setq pttt1 (polar  pd1 k3  (* L 0.5)))
    
22. (setq ptt2 (polar  pd1 k4 (+ 70 (* L 0.5)))) ;平台边线点
    
23. (setq pttt2 (polar  pd1 k4  (* L 0.5)))
    
24. (setq ptt3 (polar  Id k3 (+ 70 (* L 0.5)))) ;平台边线点
    
25. (setq pttt3 (polar  Id k3  (* L 0.5)))
    
26. (setq ptt4 (polar  Id k4 (+ 70 (* L 0.5)))) ;平台边线点
    
27. (setq pttt4 (polar  Id k4  (* L 0.5)))
    
28. (setq
    
29.           Id1 (mapcar '(lambda (x y) (* (+ x y) 0.5)) ptt1 ptt3)
    
30.                   Id2 (mapcar '(lambda (x y) (* (+ x y) 0.5)) ptt2 ptt4)
    
31.                   Idd1 (polar Id1 k1 50)
    
32.                   Idd2 (polar Id1 k2 50)
    
33.                   Idd3 (polar Id2 k1 50)
    
34.                   Idd4 (polar Id2 k2 50)
    
35. )
    
36. (if (not (tblsearch "layer" "楼梯"))
    
37. (command "-layer" "m" "楼梯" "C" "4" """")
    
38. )
    
39. (setvar "clayer" "楼梯")
    
40. (command "._pline" pttt3 "w" "0" "0"  ptt3 ptt1 ptt2 ptt4 pttt4 "")  
    
41. (command "._line" pttt3 pttt1 "")  ;画栏杆线
    
42. (command "._line" pttt4 pttt2 "")  ;画栏杆线
    
43. (if (not (tblobjname "ltype" "DASH"))
    
44.         (command "-linetype" "L" "DASH" "acadiso.lin" "")
    
45.       )
    
46.           (command "-layer" "m" "虚线" "l" "DASH"  "虚线" "C" "7" """")
    
47.         (setvar "clayer" "虚线")  
    
48. (command "._line" Idd1 Idd3 "")  ;画梁线
    
49. (command "._line" Idd2 Idd4 "")  ;画梁线
    
50. 
    
51. )

(defun C:zjpt (/  en  pt1 pt2 ptt1 ptt2 ptt3 ptt4  pttt1  pttt2  pttt3  pttt4 I2 Id Id1 Id2 Idd1 Idd2 Idd3  Idd4 ss pd1 k1 k2 k3 k4 ku1  L) <br /> (setq en (car (entsel "\n选择踏步直线:"))<br />         pt1 (cdr (assoc 10 (entget en)))<br />         pt2 (cdr (assoc 11 (entget en)))<br />         ku1 (angle pt1 pt2)<br />         Id (mapcar '(lambda (x y) (* (+ x y) 0.5)) pt1 pt2)<br />         I2 (polar Id (+ ku1 (* pi 0.7)) 620)<br />         ss  (ssget "f" (list Id I2) '((8 . "楼梯" )))<br />         )<br />   (if (> (sslength ss) 4)<br />     (setq k1 (+ ku1 (+ pi (* pi 0.5))))<br />     (setq k1 (+ ku1 (* pi 0.5)))<br />     )<br /> (setq k2 (+ k1 pi))  <br /> (setq k3 (+ k1 (* pi 0.5)))<br /> (setq k4 (+ k1 (+ pi (* pi 0.5))))<br /> (setq L (distance pt1 pt2))<br /> (setq pd1 (polar Id k1 L))<br /> (setq ptt1 (polar  pd1 k3 (+ 70 (* L 0.5)))) ;平台边线点<br /> (setq pttt1 (polar  pd1 k3  (* L 0.5)))<br /> (setq ptt2 (polar  pd1 k4 (+ 70 (* L 0.5)))) ;平台边线点<br /> (setq pttt2 (polar  pd1 k4  (* L 0.5)))<br /> (setq ptt3 (polar  Id k3 (+ 70 (* L 0.5)))) ;平台边线点<br /> (setq pttt3 (polar  Id k3  (* L 0.5)))<br /> (setq ptt4 (polar  Id k4 (+ 70 (* L 0.5)))) ;平台边线点<br /> (setq pttt4 (polar  Id k4  (* L 0.5)))<br /> (setq<br />           Id1 (mapcar '(lambda (x y) (* (+ x y) 0.5)) ptt1 ptt3)<br />                   Id2 (mapcar '(lambda (x y) (* (+ x y) 0.5)) ptt2 ptt4)<br />                   Idd1 (polar Id1 k1 50)<br />                   Idd2 (polar Id1 k2 50)<br />                   Idd3 (polar Id2 k1 50)<br />                   Idd4 (polar Id2 k2 50)<br /> )<br /> (if (not (tblsearch "layer" "楼梯")) <br /> (command "-layer" "m" "楼梯" "C" "4" """") <br /> )<br /> (setvar "clayer" "楼梯")<br /> (command "._pline" pttt3 "w" "0" "0"  ptt3 ptt1 ptt2 ptt4 pttt4 "")  <br /> (command "._line" pttt3 pttt1 "")  ;画栏杆线<br /> (command "._line" pttt4 pttt2 "")  ;画栏杆线<br /> (if (not (tblobjname "ltype" "DASH"))<br />         (command "-linetype" "L" "DASH" "acadiso.lin" "")<br />       )<br />           (command "-layer" "m" "虚线" "l" "DASH"  "虚线" "C" "7" """") <br />         (setvar "clayer" "虚线")  <br /> (command "._line" Idd1 Idd3 "")  ;画梁线<br /> (command "._line" Idd2 Idd4 "")  ;画梁线<br /> <br /> )

就这个小东西

zghmaya

很不错呀 感谢分享