请求-重新创建此lisp

Tharwat · 发表于 2022-7-5 19:00:13

iconeo，正如我之前提到的，你有一个额外的单词，那就是comm，它是不需要的

对代码稍作修改。


(defun c:qwremake (/ s en e plw)
 (if (and (setq s (entsel "\nSelect any object: "))
          (wcmatch (setq en (cdr (assoc 0 (setq e (entget (car s))))))
                   "LINE,*POLYLINE,CIRCLE,ARC,INSERT"
          )
     )
   (progn
     ;; layer
     (setvar 'CLAYER (cdr (assoc 8 e)))
     ;; linetype
     (if (cdr (assoc 6 e))
       (setvar 'CELTYPE (cdr (assoc 6 e)))
       (setvar 'CELTYPE "ByLayer")
     )
     ;; color
     (if (cdr (assoc 62 e))
       (setvar 'CECOLOR (itoa (cdr (assoc 62 e))))
       (setvar 'CECOLOR "ByLayer")
     )
     ;; polyline width
     (if (cdr (assoc 43 e))
       (progn
         (setq plw (getvar 'PLINEWID))
         (setvar 'PLINEWID (cdr (assoc 43 e)))
       )
     )
     (cond ((wcmatch en "LINE,CIRCLE,ARC")
            (command en)
           )
           ((eq en "INSERT")
            (command "_.copy"
                     s
                     ""
                     (cadr s)
                     "\"
            )
           )
           ((wcmatch en "*POLYLINE") (command "pline"))
     )
     (setvar 'PLINEWID plw)
   )
 )
 (princ)
)

iconeo · 发表于 2022-7-5 19:01:25

在继续之前，非常感谢您的技能和时间！

我真的很喜欢你处理积木的方式。我有一个使用insert的有效解决方案，但后来我不得不处理我不想处理的缩放和旋转，而你的解决方案在动态块和vis状态下工作得更好。

然而，关于PLINEWID，我无法使你的lisp正常工作。在设置plw后，它似乎不想将值设置为PLINEWID。。。不知道为什么，因为我尝试了不同的方法。

无论如何，我添加了椭圆支持，现在我将处理图案填充。

copy

(defun c:qwremake (/ s en e plw)
 (if (and (setq s (entsel "\nSelect any object: "))
   (wcmatch (setq en (cdr (assoc 0 (setq e (entget (car s))))))
            "LINE,CIRCLE,ARC,ELLIPSE,*POLYLINE,INSERT"
   )
     )
   (progn
     ;; layer
     (setvar 'CLAYER (cdr (assoc 8 e)))
     ;; linetype
     (if (cdr (assoc 6 e))
(setvar 'CELTYPE (cdr (assoc 6 e)))
(setvar 'CELTYPE "ByLayer")
     )
     ;; color
     (if (cdr (assoc 62 e))
(setvar 'CECOLOR (itoa (cdr (assoc 62 e))))
(setvar 'CECOLOR "ByLayer")
     )
     ;; polyline width
     (if (cdr (assoc 43 e))
(setvar 'PLINEWID (cdr (assoc 43 e)))
     )
     (cond ((wcmatch en "LINE,CIRCLE,ARC,ELLIPSE")
     (command en)
    ) ;end condition
    ((eq en "INSERT")
     (command "_.copy"
              s
              ""
              (cadr s)
              "\"
     )
    ) ;end condition
    ((wcmatch en "*POLYLINE")
     (command "pline")
    ) ;end condition
     )
   )
 )
 (prompt "\nObject not compatible.")
 (princ)
)

非常感谢。

prodromosm · 发表于 2022-7-5 19:05:11

iconeo。代码不错。还不使用文字、样条线和图案填充。。。

谢谢

iconeo · 发表于 2022-7-5 19:08:22

嘿，谢谢。最初的海报创意和塔尔瓦特得到了巨大的帮助。

计划添加对文字、尺寸、图案填充和引线的支持。你认为我还应该解决其他问题吗？

ttray33y · 发表于 2022-7-5 19:11:07

copy

            ((eq en "INSERT")
     (command "_.copy"
              s
              ""
              (cadr s)
              "\"
     )
    ) ;end condition

代替“复制”，重新编写并尝试插入函数。

iconeo · 发表于 2022-7-5 19:16:25

对于我的用例来说，副本效果更好。然后我就不必去处理动态块、旋转、缩放等的视觉状态。

如果有人想走插入路线，李-麦克的助手lisp例程可以很好地用于动态块。

谢谢

ttray33y · 发表于 2022-7-5 19:17:32

更多的想法不断涌现，我们都知道有很多方法可以编写这个函数。。

iconeo · 发表于 2022-7-5 19:21:26

我被领导者和维度困住了。如何访问用户箭头覆盖信息？我相信它是在扩展数据中，我不知道如何正确地阅读它，甚至不知道如何使用它。感谢您的帮助。

谢谢

ttray33y · 发表于 2022-7-5 19:25:37

为qleader试试这个，抱歉这是一个noob例程。

copy


(defun leader_a ()
  (progn 
     (setq dim_style (cdr (assoc 3 alist))
           lyr (cdr (assoc 8 alist))
     )     
     (command "-dimstyle" "r" dim_style
               "-layer" "s" lyr ""
               "qleader")
  )
)
(defun c:QW ()
(setvar "cmdecho" 1)   
  (setq alist (entget (car (entsel)))
        ent (cdr (assoc 0 alist))
  )     
  (if (= ent "LEADER") (leader_a))
(princ)          
)

prodromosm · 发表于 2022-7-5 19:28:49

有人能添加这样的内容吗？

copy

(setq convert (cond ( (getkword "\nconvert to polylines? [Yes/No] <N>: ") ) ( "No" )))
         (if (eq "Yes" convert)
             (command "_.pedit" "_M" 2bjoin  "" "_J" "" ""))
         )
   )
   (setvar 'peditaccept ped)
)

[编程交流] 请求-重新创建此lisp

发表回复

精选推荐