[求助]：关于组码的问题

sunyaer · 发表于 2005-11-7 12:34:13

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

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

×

本人对组码的理解是: 把事先定义好的组码和某一特定的数值联系起来,当需要此数值时就去先找到与起对应的组码,从而把此数值提取出来. 因而组码表示的意义应该是确定的;但AutoCAD中关于组码列出了一张表,其中有象如下的定义:

40-48 Double precision floating point values (text height, scale factors, and so on)

请问: 1) 40-48中究竟是40,41,还是42对应text height?
2)90-99: 32-bit integer values 有如何理解?

见付图.

谢谢.

eachy · 发表于 2005-11-7 12:54:21

adisonmaster · 发表于 2005-11-7 12:55:16

40代表文字高度，下面是一个文本的组码列表，可以看到该文字的高度是600
((-1 . <图元名: 7ef8a100>) (0 . TEXT) (330 . <图元名: 7ef76cf8>) (5 .
D3790) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . 端子箱) (62 . 3) (100 .
AcDbText) (10 -5530.79 302229.0 0.0) (40 . 600.0) (1 . G10) (50 . 0.0) (41 .
0.5) (51 . 0.0) (7 . KT7) (71 . 0) (72 . 1) (11 -5287.16 302229.0 0.0) (210 0.0
0.0 1.0) (100 . AcDbText) (73 . 0))1

xyp1964 · 发表于 2005-11-7 13:41:03

最初由 adisonmaster 发布
[B]40代表文字高度，下面是一个文本的组码列表，可以看到该文字的高度是600
((-1 . <图元名: 7ef8a100>) (0 . TEXT) (330 . <图元名: 7ef76cf8>) (5 .
D3790) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . 端子?.. [/B]

[FONT=courier new]
组码40根据实体类型不同而不同：
TEXT、ATTDEF、ATTRIB：文字高度
CIRCLE、ARC：半径
ELLIPSE：短轴与长轴的比例
短轴与长轴的比例：起点宽度
MLINE：缩放比例
……
[/FONT]

复制代码

taner · 发表于 2005-11-7 19:06:49

最初由 xyp1964 发布
[B][QUOTE]最初由 adisonmaster 发布
[B]40代表文字高度，下面是一个文本的组码列表，可以看到该文字的高度是600
((-1 . <图元名: 7ef8a100>) (0 . TEXT) (330 . <图元名: 7ef76cf8>) (5 .
D3790) (100 . Ac... [/B]

XYP版主:

我知道可用:(entmod (subst
(cons 62 256)
(assoc 62 (setq elist (entget ename)))
elist
)
將實體的顔色改爲BYLAYER
但是,改爲顔色BYLAYER後的實體,用(assoc 62 (setq elist (entget (car(entsel)))))返回NIL. why?

xyp1964 · 发表于 2005-11-7 19:28:30

颜色为BYLAYER的实体没有组码62！
自定义函数xyp-get-Color可以提取任何实体的颜色。
方式：
(xyp-get-Color 实体名)

taner · 发表于 2005-11-7 19:43:06

最初由 xyp1964 发布
[B]颜色为BYLAYER的实体没有组码62！
自定义函数xyp-get-Color可以提取任何实体的颜色。
方式：
(xyp-get-Color 实体名) [/B]

用版主的東東可以解決很多問題.但是,對於一個想學LISP的人來說,用多了版主的東東就學不好LISP了.

再問,

如果想用ENTMODE ENTGET等來改變顔色隨層的實體的顔色爲某其它顔色呢?

xyp1964 · 发表于 2005-11-7 19:48:32

最初由 taner 发布
[B]

用版主的東東可以解決很多問題.但是... [/B]

“能用command就用command，
其次用Auto lsp，再次用Vlisp！”
直接用change命令，如改s1为红色：
(command"change" s1 "" "p" "c" 1)

taner · 发表于 2005-11-7 20:34:43

最初由 xyp1964 发布
[B]
“能用command就用command，
其次永Auto lsp，再次用Vlisp！”
直接用change命令，如改s1为红色：
(command"chan... [/B]

謝謝指點!
是這樣的,本想編一個指令,將某實體顔色改變後,視情況再變回來.現用版主的東東搞定.請看看,還有沒有更好的方法.
(defun c:xz (/ ename encolor encolorla str)
  (setq ename (car (entsel "\n點選實體,回車或點無實體區域退出.>")))
  (setq encolor (xyp-get-color ename))
  (setq encolorla (cdr (assoc 62 (entget ename))))
  (command "change" ename "" "p" "c" (1+ encolor) "")
  (setq str (getstring "\n要還原嗎?(回車還原,其它任意鍵保存改變):"))
  (if (= str "")
(if (= encolor encolorla)
   (command "change" ename "" "p" "c" encolor "")
   (command "change" ename "" "p" "c" "bylayer" "")
)
  )
  (princ)
)

xyp1964 · 发表于 2005-11-7 23:15:07

[FONT=courier new]
(defun c:xz (/ ename encolor encolorla str)
(if (setq ename (car (entsel "\n选择实体<退出> : ")))
(progn
(setq encolor (xyp-get-color ename)
encolorla (cdr (assoc 62 (entget ename)))
)
(command "change" ename "" "p" "c" (1+ encolor) "")
(if (null mode)
(setq mode "Y")
)
(setq mode (UKWORD 1 "Y N" "\n是否还原 : Y-是/N-否" mode))
(if (= mode "Y")
(if (= encolor encolorla)
(command "change" ename "" "p" "c" encolor "")
(command "change" ename "" "p" "c" "bylayer" "")
)
)
)
)
(princ)
)[/FONT]

狂刀 · 发表于 2005-11-7 23:34:39

我觉得问 “要還原嗎?”是多余的
不如设一个Undo选项，需要还原就输入U，否则继续下一步或结束并退出

cy956 · 发表于 2005-11-7 23:40:57

最初由 taner 发布
[B]

用版主的東東可以解決很多問題.但是... [/B]

其实也简单，查实体的dxf62，有－》求色，没有－》求该图层的色。

taner · 发表于 2005-11-8 01:13:55

最初由 cy956 发布
[B]

其实也简单，查实体的dxf62，有－》求色，没有－》求该图层的色。 [/B]

圖層顔色的代碼是什麽?請賜教!

狂刀 · 发表于 2005-11-8 02:03:52

;;测试: (ecol (car(entsel)))
(defun ecol (e / ent col)
(setq ent (entget e))
(or (setq col (cdr(assoc 62 ent)))
(setq col (cdr(assoc 62(tblsearch "layer" (cdr(assoc 8 ent))))))
)
col
)

taner · 发表于 2005-11-8 06:58:58

最初由狂刀发布
[B][code]
;;测试: (ecol (car(entsel)))
(defun ecol (e / ent col)
  (setq ent (entget e))
  (or (setq col (cdr(assoc 62 ent)))
   (setq col (cdr(assoc 62(tblsearch "layer" (cdr(assoc 8 ent))))))
... [/B]

狂兄出手也是很牛B!謝謝!

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

[求助] [求助]：关于组码的问题

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

相关帖子

我也有類似的困惑