钢框架梁程序小问题，求高手指点，小妹感激不尽

工法

(defun C:hh( )
(setq v1 (getvar "cmdecho")   )      
(setq v2 (getvar "osmode")    )  

(setq mm (getpoint "\n选择第一个点:"))
(prompt  "\nthe point is GJ or JJ.Enter gj or jj : ")
(setq ans(getstring))
(setq nn (getpoint "\n选择第二个点:"))
(prompt  "\nthe point is GJ or JJ.Enter gj or jj : ")
(setq ane(getstring))
(setq angle1 (angle mm nn)   )


(if(= ans "gj")
  (progn

      (setvar "cmdecho" 0)   
      (setvar "osmode" 0)  

      (setq p1(polar mm angle1 100))
      (setq p2(polar p1 angle1 300))
      (setq p3(polar p1 (+ (/ pi 2)  angle1 )  225))
      (setq p4(polar p1 (+  (/ (* 3 pi) 2)  angle1 )   225))
      (command "pline" p2 "w" 0 0  p3 p4 "c" " ")
      (command "hatch" "solid" (entlast) "")
      (command "_chprop" (entlast) "" "c" 7 ""  )      
  )
)
(if(= ans "jj")
    (progn

(setvar "cmdecho" 0)   
(setvar "osmode" 0)  

     (setq p5(polar mm  angle1 100))
     (setq p6(polar p5  angle1 300))
     (setq p7(polar p6 (+ (/ pi 2) angle1 ) 225))
     (setq p8(polar p6 (+ (/ (* 3 pi) 2)  angle1) 225))
     (command "pline" p5 "w" 0 0  p7 p8 "C" " ")
    )
)
;第一点的约束情况已经完成


(if(= ane "gj")
(progn

(setvar "cmdecho" 0)   
(setvar "osmode" 0)  
    (setq pp1(polar nn (+ pi  angle1) 100))
    (setq pp2(polar pp1 (+ pi   angle1) 300))
    (setq pp3(polar pp1 (+ (/ pi 2)  angle1 ) 225))
    (setq pp4(polar pp1 (+ (/ (* 3 pi) 2) angle1)  225))
    (command "pline" pp2 "w" 0 0  pp3 pp4 "C"  " ")
    (command "hatch" "solid" (entlast) "")
    (command "_chprop" (entlast) "" "c" 7 ""  )
)
)
(if(= ane "jj")
    (progn
      (setvar "cmdecho" 0)   
      (setvar "osmode" 0)
     
     (setq pp5(polar nn  ( + pi  angle1)  100))
     (setq pp6(polar pp5  (+  pi angle1)  300))
     (setq pp7(polar pp6 (+ angle1  (/ pi 2) )  225))
     (setq pp8(polar pp6 (+ angle1  (/ (* 3 pi) 2) ) 225))
     (command "pline" pp5 "w" 0 0  pp7 pp8 "C"  " ")
    )  
)
;第二点的约束情况已经完成



(if (and (= ans "jj") (= ane "gj")  )
   
      (command "pline" p6   "W" 150 150  pp1 " ")   
   
   
)   
;一端铰接，一端刚接情况

(if (and (= ans  "jj") (= ane  "jj")  )
   
         
          (command "pline"  p6  "W" 150 150  pp6 " ")
   
)   
;两端铰接情况
(if (and (= ans "gj") (= ane "jj")  )
     
         
   
         (command "pline" p1    "W" 150 150  pp6 " ")  
      
   
)   
;一端刚接，一端铰接情况

(if (and (= ans "gj") (= ane "gj")  )
   
         
         (command "pline" p1   "W" 150  150   pp1 " ")   
     
   
)   
;两端刚接情况

(setvar "cmdecho" v1)   
(setvar "osmode" 7)




(princ   )
)
(prompt "****<<C:hh>>*****")
(princ )



CAD运行时，对象捕捉总是自动关闭，求原因？

ZZXXQQ

1. (defun C:hh ()
   
2. (setq v1 (getvar "cmdecho"))
   
3. (setq v2 (getvar "osmode"))
   
4. (setvar "cmdecho" 0)
   
5. (setq mm (getpoint "\n选择第一个点:"))
   
6. (setq ans (getstring "\nthe point is GJ or JJ.Enter gj or jj : "))
   
7. (setq nn (getpoint "\n选择第二个点:"))
   
8. (setq ane(getstring "\nthe point is GJ or JJ.Enter gj or jj : "))
   
9. (setq angle1 (angle mm nn))
   
10. (setvar "osmode" 0)
    
11. (if(= ans "gj") (progn
    
12. (setq p1(polar mm angle1 100))
    
13. (setq p2(polar p1 angle1 300))
    
14. (setq p3(polar p1 (+ (/ pi 2) angle1) 225))
    
15. (setq p4(polar p1 (+  (/ (* 3 pi) 2) angle1) 225))
    
16. (command "pline" p2 "w" 0 0 p3 p4 "c" "")
    
17. (command "hatch" "solid" (entlast) "")
    
18. (command "_chprop" (entlast) "" "c" 7 "")
    
19. ))
    
20. (if(= ans "jj") (progn
    
21. (setq p5(polar mm angle1 100))
    
22. (setq p6(polar p5 angle1 300))
    
23. (setq p7(polar p6 (+ (/ pi 2) angle1 ) 225))
    
24. (setq p8(polar p6 (+ (/ (* 3 pi) 2) angle1) 225))
    
25. (command "pline" p5 "w" 0 0 p7 p8 "C" "")
    
26. ))
    
27. ;第一点的约束情况已经完成
    
28. (if(= ane "gj") (progn
    
29. (setq pp1(polar nn (+ pi angle1) 100))
    
30. (setq pp2(polar pp1 (+ pi angle1) 300))
    
31. (setq pp3(polar pp1 (+ (/ pi 2) angle1 ) 225))
    
32. (setq pp4(polar pp1 (+ (/ (* 3 pi) 2) angle1) 225))
    
33. (command "pline" pp2 "w" 0 0 pp3 pp4 "C" "")
    
34. (command "hatch" "solid" (entlast) "")
    
35. (command "_chprop" (entlast) "" "c" 7 "" )
    
36. ))
    
37. (if(= ane "jj") (progn
    
38. (setq pp5(polar nn (+ pi  angle1) 100))
    
39. (setq pp6(polar pp5 (+ pi angle1) 300))
    
40. (setq pp7(polar pp6 (+ angle1 (/ pi 2)) 225))
    
41. (setq pp8(polar pp6 (+ angle1 (/ (* 3 pi) 2)) 225))
    
42. (command "pline" pp5 "w" 0 0 pp7 pp8 "C" "")
    
43. ))
    
44. ;第二点的约束情况已经完成
    
45. (if (and (= ans "jj") (= ane "gj"))
    
46. (command "pline" p6 "W" 150 150 pp1 "")
    
47. )
    
48. ;一端铰接，一端刚接情况
    
49. (if (and (= ans "jj") (= ane "jj"))
    
50. (command "pline" p6 "W" 150 150 pp6 "")
    
51. )
    
52. ;两端铰接情况
    
53. (if (and (= ans "gj") (= ane "jj"))
    
54. (command "pline" p1 "W" 150 150 pp6 "")
    
55. )
    
56. ;一端刚接，一端铰接情况
    
57. (if (and (= ans "gj") (= ane "gj"))
    
58. (command "pline" p1 "W" 150 150 pp1 "")
    
59. )
    
60. ;两端刚接情况
    
61. (setvar "osmode" v2)
    
62. (setvar "cmdecho" v1)
    
63. (princ)
    
64. )
    
65. (prompt "****<<C:hh>>*****")
    
66. (princ)
    

(defun C:hh ()<br /> (setq v1 (getvar "cmdecho"))<br /> (setq v2 (getvar "osmode"))<br /> (setvar "cmdecho" 0)<br /> (setq mm (getpoint "\n选择第一个点:"))<br /> (setq ans (getstring "\nthe point is GJ or JJ.Enter gj or jj : "))<br /> (setq nn (getpoint "\n选择第二个点:"))<br /> (setq ane(getstring "\nthe point is GJ or JJ.Enter gj or jj : "))<br /> (setq angle1 (angle mm nn))<br /> (setvar "osmode" 0)<br /> (if(= ans "gj") (progn<br /> (setq p1(polar mm angle1 100))<br /> (setq p2(polar p1 angle1 300))<br /> (setq p3(polar p1 (+ (/ pi 2) angle1) 225))<br /> (setq p4(polar p1 (+  (/ (* 3 pi) 2) angle1) 225))<br /> (command "pline" p2 "w" 0 0 p3 p4 "c" "")<br /> (command "hatch" "solid" (entlast) "")<br /> (command "_chprop" (entlast) "" "c" 7 "")<br /> ))<br /> (if(= ans "jj") (progn<br /> (setq p5(polar mm angle1 100))<br /> (setq p6(polar p5 angle1 300))<br /> (setq p7(polar p6 (+ (/ pi 2) angle1 ) 225))<br /> (setq p8(polar p6 (+ (/ (* 3 pi) 2) angle1) 225))<br /> (command "pline" p5 "w" 0 0 p7 p8 "C" "")<br /> ))<br /> ;第一点的约束情况已经完成<br /> (if(= ane "gj") (progn<br /> (setq pp1(polar nn (+ pi angle1) 100))<br /> (setq pp2(polar pp1 (+ pi angle1) 300))<br /> (setq pp3(polar pp1 (+ (/ pi 2) angle1 ) 225))<br /> (setq pp4(polar pp1 (+ (/ (* 3 pi) 2) angle1) 225))<br /> (command "pline" pp2 "w" 0 0 pp3 pp4 "C" "") <br /> (command "hatch" "solid" (entlast) "") <br /> (command "_chprop" (entlast) "" "c" 7 "" )<br /> ))<br /> (if(= ane "jj") (progn<br /> (setq pp5(polar nn (+ pi  angle1) 100))<br /> (setq pp6(polar pp5 (+ pi angle1) 300))<br /> (setq pp7(polar pp6 (+ angle1 (/ pi 2)) 225))<br /> (setq pp8(polar pp6 (+ angle1 (/ (* 3 pi) 2)) 225))<br /> (command "pline" pp5 "w" 0 0 pp7 pp8 "C" "")<br /> ))<br /> ;第二点的约束情况已经完成<br /> (if (and (= ans "jj") (= ane "gj"))<br /> (command "pline" p6 "W" 150 150 pp1 "")<br /> )<br /> ;一端铰接，一端刚接情况<br /> (if (and (= ans "jj") (= ane "jj"))<br /> (command "pline" p6 "W" 150 150 pp6 "")<br /> )<br /> ;两端铰接情况<br /> (if (and (= ans "gj") (= ane "jj"))<br /> (command "pline" p1 "W" 150 150 pp6 "")<br /> )<br /> ;一端刚接，一端铰接情况<br /> (if (and (= ans "gj") (= ane "gj"))<br /> (command "pline" p1 "W" 150 150 pp1 "")<br /> )<br /> ;两端刚接情况<br /> (setvar "osmode" v2)<br /> (setvar "cmdecho" v1)<br /> (princ)<br /> )<br /> (prompt "****<<C:hh>>*****")<br /> (princ)<br />

haoryh

Z版的帮助总是那么及时，路过，帮顶一下！

ucuc2003

Z版主真大热心人！！！帮顶

工法

小妹在此感谢了，版主太好了

工法

工法 发表于 2013-1-4 13:21
小妹在此感谢了，版主太好了

(prompt  "\nthe two points is GJ GG JG or JJ.Enter gj gg jg or jj : ")
(setq cc(getstring))
(setq ans(substr cc 1 1    )
      ane(substr cc 2 1    )
)


我做了下修改，如果从键盘输入的话就按gj gg jg or jj 之一程序可以运行，如果键盘不输入，程序默认指定jj
，可以用什么函数指定呢？

工法

恳请高手指点，在线等。。。

bai2000

bai2000

我也有楼上的要求，求大师

chshsl

不错的小程序，提示有点烦琐了，直接录入00 01 10 11 来区分钢铰接，一次搞定。或选 1 2 3 4选项。