[求助]：等距分布块 LISP 程序

武陵山人 · 发表于 2006-2-9 10:58:06

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

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

×

几个在一条直线上块，但是块与块之间的距离不相等，点选第一个块，再点击最后一个块，然后选中这几个块后，这几个快能以第一个块为始，最后一个块为终等距离分布。

snoopychen · 发表于 2006-2-9 12:03:23

山人兄可以试试这个
http://p4.xdcad.net/forum/showth ... 2569341#post2569341
里面7楼的AlignAndSpace_2004
它可以找到块的中心进行对齐

xyp1964 · 发表于 2006-2-9 12:47:56

[FONT=courier new];;;tkdj(图块等距)分布
(defun c:tkdj (/ ss pt1 pt2 ang leng dl l lst s1 pt pt0 )
(CMDLA0)
(if (null mode)
(setq mode "X")
)
(SETQ mode (UKWORD 1 "X Y" "\n排序方向：X-X轴/Y-Y轴" mode))
(if (setq ss (ssget '((0 . "INSERT"))))
(progn
(cond ((= mode "X") (setq lst (xyp-Sort ss 10 "X-max")))
((= mode "Y") (setq lst (xyp-Sort ss 10 "Y-max")))
(t (setq lst (xyp-Sort ss 10 "X-max")))
)
(setq pt1 (car (car lst))
pt2 (car (last lst))
ang (angle pt1 pt2)
leng (distance pt1 pt2)
dl (/ leng (- (sslength ss) 1))
l 0
)
(foreach n lst
(setq pt (car n)
s1 (cdr n)
pt0 (polar pt1 ang l)
l (+ l dl)
)
(command "move" s1 "" pt pt0)
)
)
)
(CMDLA1)
)
(pxyp"tkdj(图块等距)")[/FONT]

[FONT=courier new];;;tkdj(图块等距)分布 
(defun c:tkdj (/ ss pt1 pt2 ang leng dl l lst s1 pt pt0 ) 
  (CMDLA0) 
  (if (null mode) 
    (setq mode "X") 
  ) 
  (SETQ mode (UKWORD 1 "X Y" "\n排序方向：X-X轴/Y-Y轴" mode)) 
  (if (setq ss (ssget '((0 . "INSERT")))) 
    (progn 
      (cond ((= mode "X") (setq lst (xyp-Sort ss 10 "X-max"))) 
            ((= mode "Y") (setq lst (xyp-Sort ss 10 "Y-max"))) 
            (t (setq lst (xyp-Sort ss 10 "X-max"))) 
      ) 
      (setq pt1         (car (car lst)) 
            pt2         (car (last lst)) 
            ang         (angle pt1 pt2) 
            leng (distance pt1 pt2) 
            dl         (/ leng (- (sslength ss) 1)) 
            l         0 
      ) 
      (foreach n lst 
        (setq pt  (car n) 
              s1  (cdr n) 
              pt0 (polar pt1 ang l) 
              l          (+ l dl) 
        ) 
        (command "move" s1 "" pt pt0) 
      ) 
    ) 
  ) 
  (CMDLA1) 
) 
(pxyp"tkdj(图块等距)")[/FONT]

xyp1964 · 发表于 2006-2-9 14:27:56

增强版：http://p4.xdcad.net/forum/showth ... 2569614#post2569614

su69 · 发表于 2006-2-10 17:20:17

最初由 xyp1964 发布
[B][CODE];;;tkdj(图块等距)分布
(defun c:tkdj (/ ss pt1 pt2 ang leng dl l lst s1 pt pt0 )
  (CMDLA0)
  (if (null mode)
(setq mode "X")
  )
  (SETQ mode (UKWORD 1 "X Y" "\n排序?.. [/B]

请问,您的程序都支持autocad的哪些版本 ?

andyhua5240 · 发表于 2006-2-10 17:50:24

最初由 xyp1964 发布
[B]增强版：http://p4.xdcad.net/forum/showth ... 2569614#post2569614 [/B]

斑竹的那个加强版，非常的好，要是支持的实体太多点就更好了。比如pline,mtext
谢谢！

xyp1964 · 发表于 2006-2-10 18:29:33

最初由 andyhua5240 发布
[B]

斑竹的那个加强版，非常的好，要是支持的实体太多点就更好了... [/B]

还需要啥其它实体尽管提出来……

andyhua5240 · 发表于 2006-2-10 18:45:43

hatch，属性字，spline，point
最好在程序中加上：
(princ "\n支持实体类型:XXXXXXXXXXX")
给用户在命令行提示
谢谢！

xyp1964 · 发表于 2006-2-10 21:04:12

超强版：http://p4.xdcad.net/forum/showth ... 2569614#post2569614

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

[求助] [求助]：等距分布块 LISP 程序

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

相关帖子