shcvip 发表于 2024-8-20 19:24:21

图层调整求助

本帖最后由 shcvip 于 2024-8-21 23:31 编辑



(defun HTddgd (/ arcss dw_indexdw_listename index linetype pipess
         r_list)

(princ "\n 选择多段中心线:")
(vl-load-com)
(setvar "cmdecho" 0)
;;;
(defun *error* (msg)
    (if(wcmatch (strcase msg t) "*break,*cancel*,*exit*,*取消*")
      (princ "\n用户按了<Esc>强制退出")
      (princ (strcat "\n" msg))
    )
    (vla-EndUndoMark
      (vla-get-ActiveDocument (vlax-get-acad-object))
    )          ;回退
    (princ)
)
(setq *DOC (vla-get-ActiveDocument (vlax-get-acad-object)))
(vla-StartUndoMark *DOC)    ;设置回退标志

(setqc03 (getvar "viewctr")
c03 (trans c03 1 2)
c08 (getvar "viewsize")
c04 (getvar "screensize")
c07 (car c04)
c06 (cadr c04)
c09 (/ (* c08 c07) c06)
c01 (list (- (car c03) (* 0.5 c09)) (- (cadr c03) (* 0.5 c08)))
c02 (list (+ (car c03) (* 0.5 c09)) (+ (cadr c03) (* 0.5 c08)))
c01 (trans c01 2 1)
c02 (trans c02 2 1)
)
(if (setq pipess (ssget (list (cons 0 "line"))))
    (command "change" pipess "" "p" "la" "z_中心线" "")
)

(setq arcss (pipesfillet pipess GD_qlR))
(setq index 0)
(repeat (sslength pipess)
    (setq ename   (ssname pipess index)
    index   (1+ index)
    linetype (cdr (assoc 0 (entget ename)))
    )
    (if(= linetype "LINE")
      (linesx ename GD_D)
      (arcsx ename GD_D)
    )
)
(setq index 0)
(repeat (sslength arcss)
    (setq ename   (ssname arcss index)
    index   (1+ index)
    linetype (cdr (assoc 0 (entget ename)))
    )
    (arcsx ename GD_D)
    (setq entdata (entget ename))
    (if(assoc 6 entdata)
;;;      (setq entdata (subst (cons 6 "CENTER") (assoc 6 entdata) entdata))
      (setq
entdata(subst (cons 8 "L_轮廓线") (assoc 6 entdata) entdata)
      ) ;;此数据不知道控制哪条直线
;;;      (setq entdata (append entdata '((6 . "CENTER"))))
      (setq entdata (append entdata '((8 . "Z_中心线")))) ;;圆弧内的中心线
    )


    (entmod entdata)
)
(setvar "cmdecho" 0)
(command "zoom" c01 c02)
;;结尾部分
;;;(Restore_Locked_Layers Locks)    ;恢复以前图层状态
(vla-EndUndoMark *DOC)    ;回退标志结束
(princ)
)

飞雪神光 发表于 2024-8-21 01:03:53

可以通过组码62 或者 vla-put-Color 设置颜色 你给这代码别人不能直接测试先不说 画出来的东西也跟图片没关系啊

czb203 发表于 2024-8-21 10:11:06

大佬，会用ai写代码，厉害啊~

shcvip 发表于 2024-8-21 14:17:48

飞雪神光 发表于 2024-8-21 01:03
可以通过组码62 或者 vla-put-Color 设置颜色 你给这代码别人不能直接测试先不说 画出来的东西也跟图片没关 ...

应该是图层，中间的是中心线层，外面的的轮廓层，然后弯头目前也变成了中心层，想改为轮廓层。

飞雪神光 发表于 2024-8-21 14:23:36

shcvip 发表于 2024-8-21 14:17
应该是图层，中间的是中心线层，外面的的轮廓层，然后弯头目前也变成了中心层，想改为轮廓层。

图层是组码8

咏郡 发表于 2024-8-21 17:57:17

你这是要干什么，画吗?

shcvip 发表于 2024-8-21 23:31:47

飞雪神光 发表于 2024-8-21 14:23
图层是组码8

里面备注了，可否帮我再看看。

飞雪神光 发表于 2024-8-22 11:01:01

shcvip 发表于 2024-8-21 23:31
里面备注了，可否帮我再看看。

帮不了 代码毫无逻辑看不懂写得是啥 且缺少函数与变量 你这是AI写的吧
页: [1]
查看完整版本: 图层调整求助