[求助]：帮我看看哪错了？

nuance · 发表于 2004-10-11 16:18:26

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

；想将新画的颜色随层的直线改成红色
(vl-load-com)
(defun x (a b / dxf)
(if (= "LINE" (cdr (assoc 0 (entget (cadr b)))))
(progn
(setq dxf (entget (cadr b)))
(setq dxf (append dxf (list (cons 62 1))))
(entmod dxf)
)
);if
); defun X
(setq n (vlr-acdb-reactor nil '((:vlr-objectModified . X))))

LUCAS · 发表于 2004-10-11 17:18:38

;;你的問題還要一堆的程序

;;SORRY!下班要回家了!
;;改變最後物件為紅色-------例子
(vl-load-com)
(defun X (A B / DXF)
(if (= "LINE" (strcase (car B)))
(vla-put-color (vlax-ename->vla-object (entlast)) 1)
)
)
(vlr-editor-reactor NIL '((:vlr-commandended . X)))

nuance · 发表于 2004-10-12 12:50:04

请LUCAS继续帮我完善吧，谢谢。
如果用line每次画多条直线怎么办？

lijiao · 发表于 2004-10-12 14:10:13

设置一个标记，论坛中有现成的讨论。

LUCAS · 发表于 2004-10-13 08:12:53

;;BY LUCAS(龍龍仔)
;;好像寫太長了!但這樣比較正確!(全用activeX)
;;對反應器不熟最好不要用,像這個程序將影嚮LINE指令
;;即其他程序使用LINE指令也可能受到影嚮
;;所以最好是再寫一個反應器當其他程序執行時自動切換這個反應器
;;這是最基本的例子,了解這個反應器
;;甚麼自動轉層-線型-顏色就手到擒來
(vl-load-com)
(setq *DOC* (vla-get-activedocument (vlax-get-acad-object)))
(defun COM_START (A B)
(vl-load-com)
(if (= "LINE" (car B))
(progn
(setq *HOLDCECOLOR*
(vlax-variant-value
(vla-getvariable
*DOC*
"cecolor"
)
)
)
(vla-setvariable
*DOC*
"cecolor"
(vlax-make-variant
1
vlax-vbstring
)
)
)
)
)
(defun COM_END (A B)
(vl-load-com)
(if (and *HOLDCECOLOR*
(= "LINE" (car B))
)
(progn (vla-setvariable
*DOC*
"cecolor"
(vlax-make-variant
*HOLDCECOLOR*
vlax-vbstring
)
)
(setq *HOLDCECOLOR* NIL)
)
)
)
(if (not *COM*)
(setq *COM*
(vlr-editor-reactor
NIL
'((:vlr-commandwillstart . COM_START)
(:vlr-commandended . COM_END)
(:vlr-commandcancelled . COM_END)
)
)
)
)
(defun C:T_COM ()
(vl-load-com)
(if (vlr-added-p *COM*)
(vlr-remove *COM*)
(vlr-add *COM*)
)
(princ)
)
(prompt "\n Type "T_com" 切換反應器!")
(princ)

;;BY LUCAS(龍龍仔) 
;;好像寫太長了!但這樣比較正確!(全用activeX) 
;;對反應器不熟最好不要用,像這個程序將影嚮LINE指令 
;;即其他程序使用LINE指令也可能受到影嚮 
;;所以最好是再寫一個反應器當其他程序執行時自動切換這個反應器 
;;這是最基本的例子,了解這個反應器 
;;甚麼自動轉 層-線型-顏色就手到擒來 
(vl-load-com) 
(setq *DOC* (vla-get-activedocument (vlax-get-acad-object))) 
(defun COM_START (A B) 
  (vl-load-com) 
  (if (= "LINE" (car B)) 
    (progn 
      (setq *HOLDCECOLOR* 
             (vlax-variant-value 
               (vla-getvariable 
                 *DOC* 
                 "cecolor" 
               ) 
             ) 
      ) 
      (vla-setvariable 
        *DOC* 
        "cecolor" 
        (vlax-make-variant 
          1 
          vlax-vbstring 
        ) 
      ) 
    ) 
  ) 
) 
(defun COM_END (A B) 
  (vl-load-com) 
  (if (and *HOLDCECOLOR* 
           (= "LINE" (car B)) 
      ) 
    (progn (vla-setvariable 
             *DOC* 
             "cecolor" 
             (vlax-make-variant 
               *HOLDCECOLOR* 
               vlax-vbstring 
             ) 
           ) 
           (setq *HOLDCECOLOR* NIL) 
    ) 
  ) 
) 
(if (not *COM*) 
  (setq        *COM* 
         (vlr-editor-reactor 
           NIL 
           '((:vlr-commandwillstart . COM_START) 
             (:vlr-commandended . COM_END) 
             (:vlr-commandcancelled . COM_END) 
            ) 
         ) 
  ) 
) 
(defun C:T_COM () 
  (vl-load-com) 
  (if (vlr-added-p *COM*) 
    (vlr-remove *COM*) 
    (vlr-add *COM*) 
  ) 
  (princ) 
) 
(prompt "\n Type "T_com" 切換反應器!") 
(princ)

eachy · 发表于 2004-10-13 11:48:33

最初由 LUCAS 发布
[B][code]
;;BY LUCAS(龍龍仔)
;;好像寫太長了!但這樣比較正確!(全用activeX)
;;對反應器不熟最好不要用,像這個程序將影嚮LINE指令
;;即其他程序使用LINE指令也可能受到影嚮
;;所以最好是再寫一個反應器當其他程序... [/B]

在2004以上使用 color 特性可能很危险，应该使用 truecolor，2002/2000使用 color 特性。

LUCAS · 发表于 2004-10-13 12:31:21

所以我不是放棄了2樓的方法了嗎?
5樓可沒有color 特性-----------"RGB:220,231,24"---truecolor設定

xyp1964 · 发表于 2004-10-13 17:01:03

直接用change或chprop命令更方便！

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

[求助] [求助]：帮我看看哪错了？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块