如图。

前生

evayleung 发表于 2018-10-23 15:10
其他自己深化。。。
其中引用了前辈的LISP和格式，在此表示谢谢。

谢谢!

这几天空下来的时候，自己用笨的办法，写一个。

aeo

直接 offset ,新生成pl的点应该和老的一一对应，polar求一下你要的点就可以了

前生

aeo 发表于 2018-11-8 10:55
直接 offset ,新生成pl的点应该和老的一一对应，polar求一下你要的点就可以了

看着可行。

dnbcgrass

2. <blockquote>(defun c:wjx()

<blockquote>(defun c:wjx()

dnbcgrass

怎么上面没有显示出来？

2. (defun c:wjx()
   
3.      (setq cmd (getvar "cmdecho"))
   
4.      (setq osm (getvar "osmode"))
   
5.      (setvar "cmdecho" 0)
   
6.      (setvar "osmode" 0)
   
7.      (command "_undo" "be")
   
8.      (while (setq ent (car (entsel "\n请选取五角星:")))
   
9.           (if (= (setq dist (getdist "\n请输入距离<15.0>=")) nil)
   
10.               (setq dist 15.0)
    
11.           )
    
12.           (setq dxf (entget ent))
    
13.           (setq pts (mapcar 'cdr (vl-remove-if '(lambda(x)(/= (car x) 10)) dxf)))
    
14.           (setq pt0 (mapcar '/ (apply 'mapcar (cons '+ pts)) (list (length pts) (length pts))))
    
15.           (setq ptb (mapcar '(lambda(pt) (polar pt (angle pt pt0) dist)) pts))
    
16.           (command "_pline")
    
17.           (foreach pt ptb (command pt))
    
18.           (command "c")
    
19.           (command "_chprop" (entlast) "" "c" 1 "")
    
20.      )
    
21.      (command "_undo" "e")
    
22.      (setvar "osmode" osm)
    
23.      (setvar "cmdecho" cmd)
    
24.      (princ)
    
25. )

(defun c:wjx()<br />      (setq cmd (getvar "cmdecho"))<br />      (setq osm (getvar "osmode"))<br />      (setvar "cmdecho" 0)<br />      (setvar "osmode" 0)<br />      (command "_undo" "be")<br />      (while (setq ent (car (entsel "\n请选取五角星:")))<br />           (if (= (setq dist (getdist "\n请输入距离<15.0>=")) nil)<br />               (setq dist 15.0)<br />           )<br />           (setq dxf (entget ent))<br />           (setq pts (mapcar 'cdr (vl-remove-if '(lambda(x)(/= (car x) 10)) dxf)))<br />           (setq pt0 (mapcar '/ (apply 'mapcar (cons '+ pts)) (list (length pts) (length pts))))<br />           (setq ptb (mapcar '(lambda(pt) (polar pt (angle pt pt0) dist)) pts))<br />           (command "_pline")<br />           (foreach pt ptb (command pt))<br />           (command "c")<br />           (command "_chprop" (entlast) "" "c" 1 "")<br />      )<br />      (command "_undo" "e")<br />      (setvar "osmode" osm)<br />      (setvar "cmdecho" cmd)<br />      (princ)<br /> )