（求助）请教一下各位大神如何用代码实现定数等分

999999

麻烦各位大侠有空的，知道处理的，帮帮忙，，谢谢啦



1.输入命令
2.选择定数等分的线段：
3.输入定数等分的块名或选择块（带记忆功能）：
4. 是否对齐块和对象？[是(Y)/否(N)] <Y>:带记忆功能）：
5.输入定数等分的数量（带记忆功能）：7


有空的大神看能否帮小弟解决一下，谢谢大家啦

foolishzy

999999 发表于 2023-5-29 13:32
大神您好，那个用过，不怎么好用，不足的就是不能选择块，输入名字了，下次还是要重新输入数值，还有就是 ...

2. (defun c:tt()
   
3.         (defun pickset_to_enamelist(pickset / ss sslst )
   
4.         (setq ss pickset sslst '())
   
5.         (while (setq n (ssname ss 0))
   
6.                 (progn
   
7.                         (setq sslst (append sslst (list n)))
   
8.                         (ssdel n ss)
   
9.                 )
   
10.         )
    
11.         sslst
    
12. )
    
13.         (if (null num)
    
14.                 (progn
    
15.                         (setq num (getint "输入等分线段数量： "))
    
16.                 )
    
17.                 (progn
    
18.                         (princ (strcat "上次数量：" (itoa num) "  "))
    
19.                         (setq s (getstring "使用上次数量请输入Y："))
    
20.                         (if (not (or
    
21.                                                                  (= (strcase s) "Y")
    
22.                                                                  (= (strcase s) " ")
    
23.                                                          ))
    
24.                                 (setq num (getint "输入等分线段数量： "))       
    
25.                         )
    
26.                 )
    
27.         )
    
28.         (if (null blackname)
    
29.                 (progn
    
30.                         (setq blackname (vlax-get-property (vlax-ename->vla-object (car(entsel "\n选择图块：")) )'Name))
    
31.                 )
    
32.                 (progn
    
33.                         (princ (strcat "上次图块：" blackname "  "))
    
34.                         (setq s (getstring "使用上次图块请输入Y："))
    
35.                         (if (not (or
    
36.                                                                  (= (strcase s) "Y")
    
37.                                                                  (= (strcase s) " ")
    
38.                                                          ))
    
39.                                 (setq blackname (vlax-get-property (car(entsel "\n选择图块：")) 'Name))                       
    
40.                         )
    
41.                 )
    
42.         )
    
43.         (princ "选择需要等分的线条：")
    
44.         (setq ss(pickset_to_enamelist (ssget '((0 . "*line")))))
    
45.         (if (and ss blackname num )
    
46.                 (foreach s ss
    
47.                         (progn
    
48.                                 (vl-cmdf "DIVIDE"  s "b" blackname  "y" num)                       
    
49.                         )
    
50.                 )
    
51.         )       
    
52. )

(defun c:tt()<br />         (defun pickset_to_enamelist(pickset / ss sslst )<br />         (setq ss pickset sslst '())<br />         (while (setq n (ssname ss 0))<br />                 (progn<br />                         (setq sslst (append sslst (list n)))<br />                         (ssdel n ss)<br />                 )<br />         )<br />         sslst<br /> )<br />         (if (null num)<br />                 (progn <br />                         (setq num (getint "输入等分线段数量： "))<br />                 )<br />                 (progn <br />                         (princ (strcat "上次数量：" (itoa num) "  "))<br />                         (setq s (getstring "使用上次数量请输入Y："))<br />                         (if (not (or <br />                                                                  (= (strcase s) "Y")<br />                                                                  (= (strcase s) " ")<br />                                                          ))<br />                                 (setq num (getint "输入等分线段数量： "))        <br />                         )<br />                 )<br />         )<br />         (if (null blackname)<br />                 (progn <br />                         (setq blackname (vlax-get-property (vlax-ename->vla-object (car(entsel "\n选择图块：")) )'Name))<br />                 )<br />                 (progn <br />                         (princ (strcat "上次图块：" blackname "  "))<br />                         (setq s (getstring "使用上次图块请输入Y："))<br />                         (if (not (or <br />                                                                  (= (strcase s) "Y")<br />                                                                  (= (strcase s) " ")<br />                                                          ))<br />                                 (setq blackname (vlax-get-property (car(entsel "\n选择图块：")) 'Name))                        <br />                         )<br />                 )<br />         )<br />         (princ "选择需要等分的线条：")<br />         (setq ss(pickset_to_enamelist (ssget '((0 . "*line")))))<br />         (if (and ss blackname num )<br />                 (foreach s ss <br />                         (progn <br />                                 (vl-cmdf "DIVIDE"  s "b" blackname  "y" num)                        <br />                         )<br />                 )<br />         )        <br /> )

foolishzy

试试DIVIDE cad自带功能

999999

foolishzy 发表于 2023-5-29 08:44
试试DIVIDE cad自带功能

大神您好，那个用过，不怎么好用，不足的就是不能选择块，输入名字了，下次还是要重新输入数值，还有就是输入的数量不能记忆起来，不太方便呢

999999

foolishzy 发表于 2023-6-1 09:36

谢谢大神，这个使用效果很好，谢谢您啦，您辛苦啦

foolishzy

999999 发表于 2023-6-1 10:55
谢谢大神，这个使用效果很好，谢谢您啦，您辛苦啦

谢谢 我快失业了 算是来论坛消磨时间

999999

foolishzy 发表于 2023-6-1 10:57
谢谢 我快失业了 算是来论坛消磨时间

这是准备另谋高就了吗