如何优化下面的源码

江南十笑

自己写的画梁水平加腋的程序如下：目前有个BUG  就是按下数字后  鼠标指针不能乱动  必须不动选取L1起始点  才能画好   要是选择L1时鼠标乱动  就只能画一条线  求大佬优化一下  解决这个BUG
(defun C:66 (/   PT1 PT2  xsm  jjdd1 jjdd2)
    (initget "1 11 2 22 3 33 4 44") ;这里可以添加自定义的
        (if (not xsm) (setq xsm "1"))(setq in (getkword (strcat "选择加腋方向：[1.一左/11.一上/2.二上/22.二右/3.三右/33.三下/4.四下/44.四左]：<" xsm ">")))
(if in (setq xsm in))  ;;;记忆上次选择
(cond
                ((= xsm "1") (setq jjdd1 0) (setq jjdd2 (* 0.5 pi) ) ) ;内容自定义
                ((= xsm "11") (setq jjdd1 (* 0.5 pi)) (setq jjdd2 0 ) )
                ((= xsm "2") (setq jjdd1 (* 0.5 pi)) (setq jjdd2 pi ) )
                ((= xsm "22") (setq jjdd1 pi) (setq jjdd2 (* 0.5 pi) ) )
                ((= xsm "3") (setq jjdd1 pi) (setq jjdd2 (* 1.5 pi) ) )
                ((= xsm "33") (setq jjdd1 (* 1.5 pi)) (setq jjdd2 pi ) )
                ((= xsm "4") (setq jjdd1 (* 1.5 pi)) (setq jjdd2 0 ) )
                ((= xsm "44") (setq jjdd1 0) (setq jjdd2 (* 1.5 pi) ) )
               
                ;这里按上面自定义的添加删除
                (t (princ))
        )

    (if (setq L1 (getpoint "\n选择加腋位置（梁柱交点）:"))
(progn
     (setq OLD_CMDECHO (getvar "CMDECHO"))
     (setvar "CMDECHO" 0)
     (setq CL (getvar "clayer"))


        (command "layer" "make" "梁加腋图层" "c" "253"  "" "")
       
  (setq PT1 (polar L1 jjdd1 500))
  (setq PT2 (polar L1 jjdd2 200))

  ;;绘制
   (command "cecolor" 7)
  (command "pline" L1 "w" "0" "0"  PT1  PT2  "c" )
  (command "cecolor" 256)
    (command "hatch" "solid" (entlast) "")

     (setvar "clayer" CL)
     (setvar "CMDECHO" OLD_CMDECHO)
)
    )
    (princ)
)

start4444

命令的捕捉导致出错，关了就行，这个代码那么多情况能记清吗，试试最后加个镜像处理会简便很多

(defun C:tt5(/ cl hat old_osm p1 p2 p3 p4 pl)
        (setq OLD_osm (getvar "OSMODE"))
        (setq CL (getvar "clayer"))
         (command "layer" "make" "梁加腋图层" "c" "253"  "" "")
        (setq p1 (getpoint"\n选取基点:") p2 (getpoint p1"\n选取长边方向点:") p3 (polar p1 (angle p1 p2) 500) p4 (polar p1 (- (angle p1 p2) (* 0.5 pi)) 200))
        (setvar "OSMODE" 0)        (command "cecolor" 7 "pline" p1 "w" "0" "0"  p3  p4  "c" "cecolor" 256 "hatch" "solid" (setq pl (entlast)) "")
        (setq hat (entlast))
        (if (= (getstring  "是否镜像？[是(Y)/否(空格)]:") "y") (command "MIRROR" hat pl  "" p1 p2 "y"))
        (setvar "clayer" CL)
        (setvar "OSMODE" OLD_osm)
        (princ)
)

虽然是要选取两点，但是可以以此判断角度可以适用倾斜的情况，你那个只能水平垂直

xyp1964

1. (defun ukword (bit kwd msg def / inp)
   
2.   (if (and def (/= def ""))
   
3.     (setq msg (strcat "\n" msg "<" def ">: ")
   
4.           bit (* 2 (fix (/ bit 2)))
   
5.     )
   
6.     (setq msg (strcat "\n" msg ": "))
   
7.   )
   
8.   (initget bit kwd)
   
9.   (setq inp (getkword msg))
   
10.   (if inp
    
11.     inp
    
12.     def
    
13.   )
    
14. )
    
15. (defun C:66 ()
    
16.   (setq        msg "选择加腋方向：[1.一左/11.一上/2.二上/22.二右/3.三右/33.三下/4.四下/44.四左"
    
17.         uk  (Ukword 1 "1 11 2 22 3 33 4 44" msg uk)
    
18.   )
    
19.   (cond        ((= uk "1") (setq r1 0) (setq r2 (* 0.5 pi)))
    
20.         ((= uk "11") (setq r1 (* 0.5 pi)) (setq r2 0))
    
21.         ((= uk "2") (setq r1 (* 0.5 pi)) (setq r2 pi))
    
22.         ((= uk "22") (setq r1 pi) (setq r2 (* 0.5 pi)))
    
23.         ((= uk "3") (setq r1 pi) (setq r2 (* 1.5 pi)))
    
24.         ((= uk "33") (setq r1 (* 1.5 pi)) (setq r2 pi))
    
25.         ((= uk "4") (setq r1 (* 1.5 pi)) (setq r2 0))
    
26.         ((= uk "44") (setq r1 0) (setq r2 (* 1.5 pi)))
    
27.         (t (princ))
    
28.   )
    
29.   (if (setq L1 (getpoint "\n选择加腋位置(梁柱交点)<退出>: "))
    
30.     (progn
    
31.       (setq CL (getvar "clayer"))
    
32.       (command "layer" "make" "梁加腋图层" "c" "253" "" "")
    
33.       (setq p1 (polar L1 r1 500))
    
34.       (setq p2 (polar L1 r2 200))
    
35.       (command "cecolor" 7)
    
36.       (command "pline" L1 "w" "0" "0" "non" p1 "non" p2 "c")
    
37.       (command "cecolor" 256)
    
38.       (command "hatch" "solid" (entlast) "")
    
39.       (setvar "clayer" CL)
    
40.     )
    
41.   )
    
42.   (princ)
    
43. )

(defun ukword (bit kwd msg def / inp)<br />   (if (and def (/= def ""))<br />     (setq msg (strcat "\n" msg "<" def ">: ")<br />           bit (* 2 (fix (/ bit 2)))<br />     )<br />     (setq msg (strcat "\n" msg ": "))<br />   )<br />   (initget bit kwd)<br />   (setq inp (getkword msg))<br />   (if inp<br />     inp<br />     def<br />   )<br /> )<br /> (defun C:66 ()<br />   (setq        msg "选择加腋方向：[1.一左/11.一上/2.二上/22.二右/3.三右/33.三下/4.四下/44.四左"<br />         uk  (Ukword 1 "1 11 2 22 3 33 4 44" msg uk)<br />   )<br />   (cond        ((= uk "1") (setq r1 0) (setq r2 (* 0.5 pi)))<br />         ((= uk "11") (setq r1 (* 0.5 pi)) (setq r2 0))<br />         ((= uk "2") (setq r1 (* 0.5 pi)) (setq r2 pi))<br />         ((= uk "22") (setq r1 pi) (setq r2 (* 0.5 pi)))<br />         ((= uk "3") (setq r1 pi) (setq r2 (* 1.5 pi)))<br />         ((= uk "33") (setq r1 (* 1.5 pi)) (setq r2 pi))<br />         ((= uk "4") (setq r1 (* 1.5 pi)) (setq r2 0))<br />         ((= uk "44") (setq r1 0) (setq r2 (* 1.5 pi)))<br />         (t (princ))<br />   )<br />   (if (setq L1 (getpoint "\n选择加腋位置(梁柱交点)<退出>: "))<br />     (progn<br />       (setq CL (getvar "clayer"))<br />       (command "layer" "make" "梁加腋图层" "c" "253" "" "")<br />       (setq p1 (polar L1 r1 500))<br />       (setq p2 (polar L1 r2 200))<br />       (command "cecolor" 7)<br />       (command "pline" L1 "w" "0" "0" "non" p1 "non" p2 "c")<br />       (command "cecolor" 256)<br />       (command "hatch" "solid" (entlast) "")<br />       (setvar "clayer" CL)<br />     )<br />   )<br />   (princ)<br /> )

江南十笑

start4444 发表于 2019-12-18 10:55
命令的捕捉导致出错，关了就行，这个代码那么多情况能记清吗，试试最后加个镜像处理会简便很多

(defun C ...

谢谢  但是我还是不太明白  为啥我的也是在选取L1点后关闭 捕捉 就出问题了呢？

江南十笑

xyp1964 发表于 2019-12-18 13:17

谢谢  为啥这个都不用关捕捉都行