请问下列程序绘的图形为何会变形？

wgrinms · 发表于 2004-7-24 09:59:00

下列程序我想绘一个粗糙符号，为何到Pt3Pt4不是水平线，Pt4位置移位什么原因造成的？请赐教！(set 'pt1 (getpoint "\n[请确定起始点位置]:"))(set 'ang_pt4 (/ pi 3))(set 'ang_pt3 (* pi 0.66667))(set 'ang_circle (/ pi 2))(set 'distance_p1_p2 12.7017)(set 'distance_p1_p34 5.7735)(set 'distance_p1_circle_center 3.33333)(set 'radius_center 1.66667)(set 'distance_p1_p3040 11.3725)(set 'ang_pt40 1.31415)(set 'ang_pt30 1.82744)(set 'pt2 (polar pt1 ang_pt4 distance_p1_p2))(set 'pt3 (polar pt1 ang_pt3 distance_p1_p34))(set 'pt4 (polar pt1 ang_pt4 distance_p1_p34))
(command "pline" pt2 "w" 0.08 0.08 pt1 pt3 pt4 "")
以上是粗糙度标注程序前一小节，不包括数字标注部分！

alin · 发表于 2004-7-24 10:28:00

开始(setvar "OSMODE" 0)试试

xyp1964 · 发表于 2004-7-24 14:57:00

楼主：重新改编了你的程序，试试如何？
实际应用中最好是利用带属性的块插入进行标注，不过我对机械作图不了解。
光有符号没有数字，怎么识图？
;;czfh.lsp
(defun c:czfh (/    pt1    ang_pt4    ang_pt3
   distance_p1_p2    distance_p1_p34
   pt2    pt3    pt4
   )
   (PREV)
   (setvar "osmode" 39)    ;捕捉状态endp,mid,cen,int
(setq pt1 (getpoint "\n\t请确定起始点位置: "))
(setvar "osmode" 0)    ;强制取消捕捉状态
   (setq ang_pt4 (/ pi 3))
   (setq ang_pt3 (* pi 0.66667))
;(setq ang_circle (/ pi 2))
   (setq distance_p1_p2 12.7017)
   (setq distance_p1_p34 5.7735)
;(setq distance_p1_circle_center 3.33333)
;(setq radius_center 1.66667)
;(setq distance_p1_p3040 11.3725)
;(setq ang_pt40 1.31415)
;(setq ang_pt30 1.82744)
   (mkla "粗糙符号" 4)
   (setq pt2 (polar pt1 ang_pt4 distance_p1_p2))
   (setq pt3 (polar pt1 ang_pt3 distance_p1_p34))
   (setq pt4 (polar pt1 ang_pt4 distance_p1_p34))
   (command "pline" pt2 "w" 0.08 0.08 pt1 pt3 pt4 "")
   (POST)
)
(Defun PREV ()
;;; 保存原有系统变量，建立新的系统变量
   (Setq cmdech (Getvar "Cmdecho")
oom    (Getvar "Orthomode")
osm    (Getvar "Osmode")
la    (Getvar "Clayer")
   )
   (Setvar "Cmdecho" 0)
   (Setvar "Regenmode" 1)
)
;;; ----------------------- MKLA --------------------------
(Defun MKLA (a b)
;;; 建层: (mala "层名" 颜色号)
   (If (= (Tblsearch "layer" a) nil)
   (Command "layer" "m" a "c" b a "")
   (Command "layer" "t" a "s" a "c" b a "")
   )
)
(Defun POST() ;(/ cmdech LA oom osm)
;;; 恢复原有系统变量
   (Setvar "Cmdecho" cmdech)
   (Setvar "Clayer" LA)
   (Setvar "Orthomode" oom)
   (Setvar "Osmode" osm)
   (Terpri)
   (Princ)
) ;Defun
捕捉状态修改说明：
①确定起始点位置前设置捕捉状态endp,mid,cen,int四种基本状态。
②画线前取消捕捉状态。
③画完线再恢复原先的捕捉状态