如何将代码插入Newl

BlackBox · 发表于 2022-7-6 10:45:24

嗯，公平地说，我怀疑这是OP的预期目标。英雄联盟

然而，我认为这两个线程有一个共同的缺陷，即试图自动化一个已经很简单的任务。

开发者犯规#176。。。自动化是为了自动化，而不是效率。

Lee Mac · 发表于 2022-7-6 10:48:58

我倾向于同意——但只是部分同意。

例如，假设你在一家绘制大量管道的公司工作，你可以创建中心线，然后用针对不同管道直径的特定偏移量编程按钮，这样可以避免你查找它们，或者错误地输入它们。。。

只是一个想法

BlackBox · 发表于 2022-7-6 10:52:28

李，这值得一想。

然而，OP的宏不包括此类智能，而是10个单位的基本预定义偏移量。

诚然，我有用于类似目的的功能（而不是按钮），这些功能是根据我所在州的DOT排水管道标准（圆形、椭圆形等）量身定制的，其中考虑了管道壁厚、最小和最大坡度等因素。。

使用Land Desktop（pre Civil 3D conflict check），我开发了几个生产工具，用于确定公用设施调整交叉高程（上/下）、指定位置的反转高程、场地放坡公用设施以及公用设施管道横截面自动化。

... 但同样，这些工具是为了提高效率而开发的。

alanjt · 发表于 2022-7-6 10:55:44

copy

(defun offsetCreate (low high)
 ;; Alan J. Thompson, 11.01.10
 (if (apply (function and) (mapcar (function (lambda (x) (eq (type x) 'INT))) (list low high)))
   ((lambda (i)
      (while (<= low (setq i (1+ i)) high)
        (eval (list 'defun
                    (read (strcat "c:" (itoa i)))
                    nil
                    (list 'command "_.offset" i)
                    '(princ)
              )
        )
      )
    )
     (1- low)
   )
 )
)

copy


(defun MakeOffsets ( _min _max _inc )
 (repeat (1+ (fix (/ (- _max _min) _inc)))
   (eval
     (list 'defun (read (strcat "C:" (vl-string-translate "." "," (vl-princ-to-string _min)))) nil
       (list 'command "_.offset" _min)
       (list 'princ)
     )
   )
   (setq _min (+ _min _inc))
 )
 (princ)
)

Lee Mac · 发表于 2022-7-6 10:57:53

我想您可以只提供整个数字列表（无论是实数还是整数）。

copy

(MakeOffsets 3 6 0.5)

顺便说一句，李，我会在逗号上用连字符，因为它位于数字键盘上。

alanjt · 发表于 2022-7-6 11:02:51

大概取决于他们想要创造多少。。。

Lee Mac · 发表于 2022-7-6 11:04:03

哦，我知道，但这都是理论上的废话。

alanjt · 发表于 2022-7-6 11:07:50

更多隐喻素材。。。

copy

(defun offsetCreate (numberList)
 (foreach x numberList
   (eval (list 'defun
               (read (strcat "c:" (vl-string-translate "." "-" (vl-princ-to-string x))))
               nil
               (list 'command "_.offset" x)
               '(princ)
         )
   )
 )
)

BlackBox · 发表于 2022-7-6 11:11:32

哈哈，我希望他们选择有效的对象，只希望它们偏移到透视图右侧。

alanjt · 发表于 2022-7-6 11:13:16

[编程交流] 如何将代码插入Newl

发表回复

精选推荐