一个基础的问题,谢谢了

龙龙仔

好听的话你记不久,多写就会变强!

晓雨

龙版主,你的程序有问题嘛,你不但没有什么进展,还有所退步嘛,哈哈


数值出不来?向下的时候线条位置不对?表面不加工的时候又没有圆,........,唉,这么简单的程序,你看看你,你叫我怎么说你才好?

龙龙仔

数值出不来?向下的时候线条位置不对?表面不加工的时候又没有圆 可能是你不会用,我可没有看到你要[圆],把需求贴个图上来吧! 像这类功能我都是用现成套装软体(AIS9.0),反正一堆都有类似的功能 ;;以下是我目前所收集的表面粗糙度程序
;;我提示也没有说小写可以,所以出错只能说是你输入错误,好吧!算我错! (defun C:BB (/ ENT HOLDECHO HOLDORTH LST N1 OS PT PT1 PT2 PT3 PT4 SS ST1)
(initget "A S D F G ")
(setq N1
(getkword ;修改getstring->getkword
"\n输入表面粗糙度值<1.6>[0.4(A)/0.8(S)/3.2(D)/6.3(F)/不加工(G)]: "
)
)
(setq PT (getpoint "\n请输入放置点: "))
(command "_.undo" "be")
(setq HOLDECHO (getvar "cmdecho")) ;add
(setvar "cmdecho" 0)
(setq
LST '(("A" "0.4")
("S" "0.8")
("D" "3.2")
("F" "6.3")
("G" "")
(NIL "1.6") ;""->nil
)
)
(setq ST1 (cadr (assoc N1 LST)))
(setq PT1 (polar PT (/ pi 3.0) 10.4))
(setq PT2 (polar PT (* pi (/ 2.0 3.0)) 4.6))
(setq PT3 (polar PT (/ pi 3.0) 4.6))
(setq PT4 (polar PT 1.65 6.63)) ;1.418->1.65
;;(setvar "clayer" "文字标注")
(setq OS (getvar "osmode"))
(setvar "OSMODE" 0)
(setq SS (ssadd))
(command "_.line" PT1 PT "")
(ssadd (entlast) SS)
(command "_.line" PT PT2 "")
(ssadd (entlast) SS)
(command "_.line" PT2 PT3 "")
(ssadd (setq ENT (entlast)) SS)
(if (/= ST1 "")
(progn
(command "_.text" "mc" PT4 3 0 ST1) ;3.5->3 最好再设定字型
(ssadd (entlast) SS)
)
)
(setq HOLDORTH (getvar "ORTHOMODE"))
(setvar "ORTHOMODE" 1)
(command "_.rotate" SS "" PT PAUSE)
(setvar "ORTHOMODE" HOLDORTH)
(if (and (/= ST1 "")
(>= (angle (cdr (assoc 10 (entget ENT)))
(cdr (assoc 11 (entget ENT)))
)
pi
)
)
(command "_.rotate"
(entlast)
""
(cdr (assoc 11 (entget (entlast))))
180
)
)
(command "_.pedit" (ssname SS 0) "" "j" SS "" "") ;add
(command "_.undo" "e")
(setvar "OSMODE" OS)
(setvar "cmdecho" HOLDECHO) ;add
(princ)
)