转换CELTSCALE（&L）

cedwards · 发表于 2022-7-6 08:45:05

大家好，

我有一个Lisp程序的要求，这将真正帮助我！

我需要将所有对象（当然是直线和样条线）的celtscale转换为celtscale/ltscale。

任何帮助都将不胜感激。

Lee Mac · 发表于 2022-7-6 08:49:57

我不确定自己是否完全理解，但也许：


(defun c:ce/lt ( / ss )
 ;; © Lee Mac 2010
 (if (setq ss (ssget "_X" '((-4 . "<") (48 . 0.0))))
   (
     (lambda ( i / e )
       (while (setq e (ssname ss (setq i (1+ i))))
         (LM:Update
           (LM:SubstDXF 48
             (/ (getvar 'CELTSCALE) (cdr (assoc 48 (entget e)))) (entget e)
           )
         )
       )
     )
     -1
   )
 )
 
 (princ)
)
(defun LM:SubstDXF ( code value elist )
 (entmod
   (subst
     (cons code value) (assoc code elist) elist
   )
 )
)
(defun LM:Update ( elist )
 (entupd
   (cdr (assoc -1 elist))
 )
)

cedwards · 发表于 2022-7-6 08:54:39

我想我要问的是，如何获取（读取值）对象的线型比例（在“特性”选项板中列出的比例）？

Lee Mac · 发表于 2022-7-6 08:57:07

也许下面的链接会有所帮助。我想做同样的事情，除了新的线型比例是当前的一个函数。

新线型比例=（当前线型比例）（/LTSCALE）

http://forums.autodesk.com/t5/AutoCAD-2006/globally-reset-Linetype-Scale-for-all-entities-in-a-drawing/m-p/1410799

cedwards · 发表于 2022-7-6 08:58:21

我的最后一篇代码帖子将对象的线型比例设置为其旧线型比例除以图形的ltscale sys var。

此更改仅适用于线型比例不等于1的对象。

Lee Mac · 发表于 2022-7-6 09:02:41

好的，谢谢，但代码似乎没有任何作用。我设置了所需的ltscale，然后运行lisp，它不会更改线型比例。代码运行时没有错误，但似乎没有改变值。

cedwards · 发表于 2022-7-6 09:05:34

可能是没有抓到对象-请尝试上面更新的代码。

cedwards · 发表于 2022-7-6 09:09:33

修订后的规范半起作用。它会更改一些对象/线，然后出错。

命令：CE/LT
; 错误：错误的参数类型：numberp:nil

有什么建议吗？

Lee Mac · 发表于 2022-7-6 09:10:52

是的，我认为这可能会发生-因此在原始代码中使用过滤器。。。

好的，再试一次

cedwards · 发表于 2022-7-6 09:15:37

copy


(defun c:ce/lt ( / ss )
 ;; © Lee Mac 2010
 (if (setq ss (ssget "_X"))
   (
     (lambda ( i / e )
       (while (setq e (ssname ss (setq i (1+ i))))
         (LM:Update
           (LM:SubstDXF 48
             (/ (cdr (assoc 48 (entget e))) (getvar 'ltscale)) (entget e)
           )
         )
       )
     )
     -1
   )
 )
 
 (princ)
)
(defun LM:SubstDXF ( code value elist )
 (entmod
   (subst
     (cons code value) (assoc code elist) elist
   )
 )
)
(defun LM:Update ( elist )
 (entupd
   (cdr (assoc -1 elist))
 )
)

[编程交流] 转换CELTSCALE（&L）

发表回复

精选推荐