freefeng 发表于 2008-4-10 15:54:00

求将所选对象的标注样式置为当前

<div style="PADDING-RIGHT: 0px; MARGIN-TOP: 10px; FONT-SIZE: 9pt; OVERFLOW-X: hidden; WIDTH: 97%; WORD-BREAK: break-all; TEXT-INDENT: 0px; LINE-HEIGHT: normal; HEIGHT: 200px; WORD-WRAP: break-word;"><div style="WIDTH: 728px; HEIGHT: 90px;"><strong><script type="text/javascript"></script><script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type="text/javascript"></script></strong></div>王工能不能编一个将所选对象的标注样式置为当前的LSP程序呀？</div>

ZZXXQQ 发表于 2008-5-14 08:13:00

本帖最后由 ZZXXQQ 于 2019-7-5 00:38 编辑

计划赶不上变化，回答赶不上要求。

;设定所选对象的标注样式 明经 ZZXXQQ 2008.5.2,2008.5.14加换层
(defun c:tt ()
(if (and (setq s1 (entsel "\nSelect a dimension 选择尺寸 :"))
          (setq ent (entget (car s1)))
          (= (cdr (assoc 0 ent)) "DIMENSION")) (progn
(setq dnm (cdr (assoc 3 ent)))
(setq lnm (cdr (assoc 8 ent)))
(command "-DIMSTYLE" "R" dnm)
(command "layer" "s" lnm "")
))
(princ)
)

ZZXXQQ 发表于 2008-5-2 19:55:00

本帖最后由 ZZXXQQ 于 2019-7-5 00:35 编辑


;设定所选对象的标注样式 明经 ZZXXQQ 2008.5.2
(defun c:tt ()
(if (and (setq s1 (entsel "\nSelect a dimension 选择尺寸 :"))
          (setq ent (entget (car s1)))
          (= (cdr (assoc 0 ent)) "DIMENSION")) (progn
(setq dnm (cdr (assoc 3 ent)))
(command "-DIMSTYLE" "R" dnm)
))
(princ)
)

ljttjl 发表于 2008-4-17 21:43:00

本帖最后由 ljttjl 于 2011-11-5 12:24 编辑


freefeng 发表于 2008-5-13 21:31:00

<p>谢谢版主，很好用，要是能加上同时自动将所选的标注的图层也置为当前就好了。</p>

freefeng 发表于 2008-5-14 21:56:00

<p>太好了,版主真敬业,向你致敬!!</p><p>&nbsp;不知道你能否帮我做一个类似3DMAX中的按颜色选择对象的LSP,希望是能先框选一个范围,然后在所选范围内再按颜色选择对象.谢谢你哦.</p>

wyvernlan 发表于 2008-6-8 15:39:00

<p>继续看下去握..</p>

toeastone 发表于 2008-7-16 14:26:00

<p>太好了,版主真敬业,向你致敬!!</p>

oujun1971 发表于 2009-2-6 19:22:00

<p>太好了,版主真敬业,向你致敬!!</p>

sinceret 发表于 2009-2-6 22:06:00

<p>cad 命令filter</p><p>不仅能按颜色选择，还能按其他特性选。</p><p>看cad帮助</p>
页: [1] 2 3
查看完整版本: 求将所选对象的标注样式置为当前