[求助]請幫忙看一下哪裡出了問題

aytxq · 发表于 2009-4-16 17:22:00

請各位大俠幫忙看一下我這個程序哪裡出了問題。

我是想寫一下個程序，對一個零件的主視圖畫仰視圖(先左後右選點)或右視圖(先下後上選點)，並標注外形尺寸。

現在出現的問題是第一次執行程序只能得到第一張圖的結果，如果再重復執行一下程序，就能得到想要的結果(第二張圖)。分析了很久，一直沒有搞明白到底是哪裡出錯。請各位相助一下。謝謝了!

AMTONNY · 发表于 2009-4-16 22:05:00

;礶箂ン跌┪ヵ跌近锅瓜夹猔
(defun c:sd()
(setvar "cmdecho" 0)
(setq osmode (getvar "osmode"))
(setvar "osmode" 1)
(setq pta (getpoint "\n 叫块材翴:")
    ptb (getpoint "\n 叫块材翴:"))
    (if (> (abs (- (car pta) (car ptb))) (abs (- (cadr pta ) (cadr ptb))))
    (setq pl 1);绢Α
    (setq pl 0));捷Α if end
;;;   (setq ptx (Getpoint "\n ﹚凹跌よ:"))

此处加上下面一句看看哦，应该会好了的

(setvar "osmode" 0)

ZZXXQQ · 发表于 2009-4-17 08:49:00

都是UCS做怪。

;畫零件的右視或仰視輪廓圖，並標注
(defun c:sd()
(setvar "cmdecho" 0)
(setvar "BLIPMODE" 0)
(setq osmode (getvar "osmode"))
(setvar "osmode" 1)
(setq pta (getpoint "\n 請輸入第一點:")
ptb (getpoint "\n 請輸入第二點:"))
(if (> (abs (- (car pta) (car ptb))) (abs (- (cadr pta ) (cadr ptb))))
(setq pl 1);橫式
(setq pl 0));豎式 if end
;;; (setq ptx (Getpoint "\n 指定側視方向:"))
(if (= pl 1)
(setq pt0 (list (car pta) (- (cadr pta) 10)))
(setq pt0 (list (+ (car pta) 10) (cadr pta)))
)
;;; (command "ucs" "o" pt0)
(if (= pl 1)
(setq ;x (abs(- (car ptb) (car pta)))
pt1 (list (+ (car pta) 0.3) (- (cadr pta) 10))
pt2 (list (car pta) (- (cadr pta) 10.3))
pt3 (list (car pta) (- (cadr pta) 29.98))
pt4 (list (car ptb) (- (cadr pta) 29.98))
pt5 (list (car ptb) (- (cadr pta) 10.3))
pt6 (list (- (car ptb) 0.3) (- (cadr pta) 10))
pt7 (list (car pta) (- (cadr pta) 12))
pt8 (list (car ptb) (- (cadr ptb) 12)))
(setq ;y (abs (- (cadr pta) (cadr ptb)))
pt1 (list (+ (car pta) 10) (+ (cadr pta) 0.3))
pt2 (list (+ (car pta) 10.3) (cadr pta))
pt3 (list (+ (car pta) 29.98) (cadr pta))
pt4 (list (+ (car pta) 29.98) (cadr ptb))
pt5 (list (+ (car pta) 10.3) (cadr ptb))
pt6 (list (+ (car pta) 10) (- (cadr ptb) 0.3))
pt7 (list (+ (car pta) 12) (cadr pta))
pt8 (list (+ (car pta) 12) (cadr ptb)))
);if end
(setvar "osmode" 0)
(command ".pline" pt1 pt2 pt3 pt4 pt5 pt6 pt1 "c")
(command ".line" pt7 pt8 "")
(setvar "dimdec" 3)
(command "ucs" "o" pt0)
(setq pt1 pt1) (setq pt3 pt3) (setq pt4 pt4)
(if (= pl 1)
(setq pt31 (list (- (car pta) 3) (- (cadr pta) 10))
pt32 (list (- (car pta) 3) (- (cadr pta) 12))
pt33 (list (- (car pta) 3) (- (cadr pta) 29.98))
pt34 (list (car pta) (- (cadr pta) 33))
pt35 (list (car ptb) (- (cadr pta) 33)))
(setq pt31 (list (+ (car pta) 10) (- (cadr pta) 3))
pt32 (list (+ (car pta) 12) (- (cadr pta) 3))
pt33 (list (+ (car pta) 29.98) (- (cadr pta) 3))
pt34 (list (+ (car pta) 33) (cadr pta))
pt35 (list (+ (car pta) 33) (cadr ptb)))
)
(command "dimordinate" (trans pt1 0 1) (trans pt31 0 1))
(command "dimordinate" (trans pt3 0 1) (trans pt33 0 1))
(command "dimordinate" (trans pt3 0 1) (trans pt34 0 1))
(command "dimordinate" (trans pt4 0 1) (trans pt35 0 1))
(setvar "dimdec" 1)
(command "dimordinate" (trans pt7 0 1) (trans pt32 0 1))
(command ".ucs" "w")
(setvar "dimdec" 3)
(setvar "BLIPMODE" 1)
(setvar "osmode" osmode)
(setvar "cmdecho" 1)
(princ)
)

;畫零件的右視或仰視輪廓圖，並標注
(defun c:sd()
 (setvar "cmdecho" 0)
 (setvar "BLIPMODE" 0)
 (setq osmode (getvar "osmode"))
 (setvar "osmode" 1)
 (setq pta (getpoint "\n 請輸入第一點:")
       ptb (getpoint "\n 請輸入第二點:"))
 (if (> (abs (- (car pta) (car ptb))) (abs (- (cadr pta ) (cadr ptb))))
    (setq pl 1);橫式
    (setq pl 0));豎式 if end
;;;   (setq ptx (Getpoint "\n 指定側視方向:"))
 (if (= pl 1)
  (setq pt0 (list (car pta) (- (cadr pta) 10)))
  (setq pt0 (list (+ (car pta) 10) (cadr pta)))
 )
;;;   (command "ucs" "o" pt0)
 (if (= pl 1)
  (setq ;x (abs(- (car ptb) (car pta)))
        pt1 (list (+ (car pta) 0.3) (- (cadr pta) 10))
        pt2 (list (car pta) (- (cadr pta) 10.3))
        pt3 (list (car pta) (- (cadr pta) 29.98))
        pt4 (list (car ptb) (- (cadr pta) 29.98))
        pt5 (list (car ptb) (- (cadr pta) 10.3))
        pt6 (list (- (car ptb) 0.3) (- (cadr pta) 10))
        pt7 (list (car pta) (- (cadr pta) 12))
        pt8 (list (car ptb) (- (cadr ptb) 12)))
  (setq ;y (abs (- (cadr pta) (cadr ptb)))
        pt1 (list (+ (car pta) 10) (+ (cadr pta) 0.3))
        pt2 (list (+ (car pta) 10.3) (cadr pta))
        pt3 (list (+ (car pta) 29.98) (cadr pta))
        pt4 (list (+ (car pta) 29.98) (cadr ptb))
        pt5 (list (+ (car pta) 10.3) (cadr ptb))
        pt6 (list (+ (car pta) 10) (- (cadr ptb) 0.3))
        pt7 (list (+ (car pta) 12) (cadr pta))
        pt8 (list (+ (car pta) 12) (cadr ptb)))
 );if end
 (setvar "osmode" 0)
 (command ".pline" pt1 pt2 pt3 pt4 pt5 pt6 pt1 "c")
 (command ".line" pt7 pt8 "")
 (setvar "dimdec" 3)
 (command "ucs" "o" pt0)
 (setq pt1 pt1) (setq pt3 pt3) (setq pt4 pt4)
 (if (= pl 1)
  (setq pt31 (list (- (car pta) 3) (- (cadr pta) 10))
        pt32 (list (- (car pta) 3) (- (cadr pta) 12))
        pt33 (list (- (car pta) 3) (- (cadr pta) 29.98))
        pt34 (list (car pta) (- (cadr pta) 33))
        pt35 (list (car ptb) (- (cadr pta) 33)))
  (setq pt31 (list (+ (car pta) 10) (- (cadr pta) 3))
        pt32 (list (+ (car pta) 12) (- (cadr pta) 3))
        pt33 (list (+ (car pta) 29.98) (- (cadr pta) 3))
        pt34 (list (+ (car pta) 33) (cadr pta))
        pt35 (list (+ (car pta) 33) (cadr ptb)))
 )
 (command "dimordinate" (trans pt1 0 1) (trans pt31 0 1))
 (command "dimordinate" (trans pt3 0 1) (trans pt33 0 1))
 (command "dimordinate" (trans pt3 0 1) (trans pt34 0 1))
 (command "dimordinate" (trans pt4 0 1) (trans pt35 0 1))
 (setvar "dimdec" 1)
 (command "dimordinate" (trans pt7 0 1) (trans pt32 0 1))
 (command ".ucs" "w")
 (setvar "dimdec" 3)
 (setvar "BLIPMODE" 1)
 (setvar "osmode" osmode)
 (setvar "cmdecho" 1)
 (princ)
)

aytxq · 发表于 2009-4-17 12:59:00

ZZXXQQ老大。你改的這個好像也有問題，都是第一次加載只能畫出圖形而沒有標注，以後都沒有問題。

aytxq · 发表于 2009-4-17 13:00:00

有試過，不行的，因為不是捕捉造成的問題

ZZXXQQ · 发表于 2009-4-17 20:44:00

没问题呀！我在2004上调试通过。

aytxq · 发表于 2009-4-18 10:47:00

我這裡打開一個新圖，加載後第一次使用就會像圖中一樣。沒有標注出來。只有黃色的圈圈中有一點標注的點

aytxq · 发表于 2009-4-18 10:48:00

剛才忘了傳圖了

aytxq · 发表于 2009-4-21 12:24:00

搞定了。要在最前面再加一句(command ".ucs" "w")

账号		自动登录	找回密码
密码			注册

[求助]請幫忙看一下哪裡出了問題

本帖子中包含更多资源

本帖子中包含更多资源