[求助]：尺寸标注的转换？

nuance · 发表于 2003-7-10 23:34:44

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

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

×

能否通过更改图元数据将aligned方式改为linear方式？

cy956 · 发表于 2003-7-10 23:48:36

(DEFUN c:dma2h (/ A D70 EN IN N P13 P14 S)
(PROMPT "\n选择要转换为线性样式的尺寸:")
(SETQ s (SSGET '((0 . "DIMENSION")))
n (SSLENGTH s) in 0)
(REPEAT n
(SETQ en (ENTGET (SSNAME s in))
in (1+ in)
d70 (dxf 70 en))
(IF (member d70 '(1 33 65 97 129 161))(PROGN
(SETQ p13 (dxf 13 en)p14 (dxf 14 en)
a(ANGLE p13 p14)
en(SUBST (cons 70 (1- d70)) (assoc 70 en) en)
en(SUBST (CONS 50 a) (ASSOC 50 en) en))
(ENTMOD en)
) )
) (PRINC)
)

nuance · 发表于 2003-7-11 00:01:59

dxf为何函数？

lsjjm · 发表于 2003-7-11 06:36:22

Try this code:
(defun c:test ()
  (vl-load-com)
  (setq obj (car (entsel "\nSelect dimension:")))
  (setq obj (vlax-ename->vla-object obj))
  (vlax-put-property obj 'textinsidealign 0)
)

aeo · 发表于 2003-7-13 10:01:33

最初由 nuance 发布
[B]dxf为何函数？ [/B]

(defun dxf(a b)(cdr(assoc a b)))

cy365,好象不对,分加错了!:)

aligned和linear是两码事,是不是转到rotate方式?

nuance · 发表于 2003-7-13 15:55:56

cy365的代码加上dxf后运行成功，谢谢。

cy956 · 发表于 2003-7-13 16:45:42

再说cy365小心我扣分！:)))

dreamsky · 发表于 2003-7-14 01:00:31

最初由 cy956 发布
[B]再说cy365小心我扣分！:))) [/B]

要我帮忙么?
呵呵,开个玩笑

aeo · 发表于 2003-7-15 22:46:39

最初由 cy956 发布
[B]再说cy365小心我扣分！:))) [/B]

是不是2004可以了
我2002不行.
看来看去,程序应该可以的.我加了(100 . "AcDbRotatedDimension")也不行,不知道为什么.
r14下又可以,没道理呀?

ydf7332462 · 发表于 2003-7-15 23:23:16

能否通过更改图元数据将linear方式改为aligned方式？
因acad可批量dim-con,却无qdim-ali,program怎样

nuance · 发表于 2003-7-20 00:59:35

cy956:能不能说说第二贴中此句(member d70 '(1 33 65 97 129 161))的作用?

XDSoft · 发表于 2003-7-20 01:03:47

最初由 nuance 发布
[B]cy956:能不能说说第二贴中此句(member d70 '(1 33 65 97 129 161))的作用? [/B]

你去看看尺寸实体的组码70的含义，值分别是 1，33，65，97，129，161 的具体含义。

上面这行代码判断都D70的值是否是1，33，65，97，129，161 之一。

cy956 · 发表于 2003-7-20 12:01:32

实际上这是穷举可能的几种情况，可能不严密。
我也不肯定align的d70码的所有可能，当时这样
写，好像没错就这么用了，也没用位异或，
我想这就是业余和专业的区别吧。

aeo · 发表于 2003-7-21 22:13:02

我2002下不成功,还没回答我呢,
我只能删了再entmake

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

[求助] [求助]：尺寸标注的转换？

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

相关帖子