alanjt 发表于 2022-7-6 11:31:21

两个示例（完全未经测试）：
 
(defun c:one (/ ss)
(if (setq ss (ssget "_P" '((0 . "LWPOLYLINE"))))
   (DimPL (ssname ss 0))
)
(princ)
)


(defun c:all (/ ss)
(if (setq ss (ssget "_P" '((0 . "LWPOLYLINE"))))
   ((lambda (i)
      (while (setq e (ssname ss (setq i (1+ i))))
      (DimPL e)
      )
    )
   -1
   )
)
(princ)
)

Lt Dan's l 发表于 2022-7-6 11:35:51

效果很好！谢谢

Lt Dan's l 发表于 2022-7-6 11:40:11

1.当我使用VL时，如何显示块？我希望它在命令提示选择插入点时显示块。
 
2.attedit命令在lisp中运行时，将显示在命令提示符上。我该如何改变？

alanjt 发表于 2022-7-6 11:40:31

[列表=1]
[*]您必须使用GrRead进行模拟，还必须模拟OSnaps“date=”或使用命令。
[*']（初始直径）
[/列表]

Lt Dan's l 发表于 2022-7-6 11:45:05

 
谢谢你，先生

alanjt 发表于 2022-7-6 11:47:10

 
祝你好运

Lee Mac 发表于 2022-7-6 11:52:44

 
也许acet ss拖动

alanjt 发表于 2022-7-6 11:55:57

....或者那样。

Lt Dan's l 发表于 2022-7-6 11:57:52

我找到了一个你创建的grread示例。它帮助了我。你是如何垂直于numinc程序的？我搜索了acer ss drag move，但在该程序的任何地方都找不到它。

Lee Mac 发表于 2022-7-6 11:59:21

 
垂直的
页: 1 [2]
查看完整版本: 初级问题