[LISP程序]：单侧或双侧加粗直线或多义线程序

zml84

回复楼上：
一般来说，主程序功能是：接收用户输入；调用函数；输出结果。
而通用函数负责核心部分的计算。
这样分离，通用函数部分就可以被重复调用了。

kmdz

厉害，修改之后很好用。谢谢

lynchwu

楼主真是厉害，编的程序实在又好用。

zhongyang730

好程序。天正可以从中心往两侧同时加

gcho

谢谢分享！

edenm

多谢，受用

chinalgy

这个不错啊，真想下来学习一下。。

paladi

唉，又没下下来。

gysjy

目前该网站很多文件都无法下载。现将该程序的代码贴在这里，欢迎使用。
[PHP](princ "\ngysjy0欢迎您使用加粗线程序！该程序命令名是jiacu。")
(defun c:jiacu(/ os op oc p1 ss sn en n2 p2)
  (setq oer *error* *error* myerr)
  (setq os (getvar "osmode") op (getvar "plinewid") oc (getvar "clayer"))
  (setvar "osmode" 512)      
  (setvar "cmdecho" 0)  
  (command "undo" "g")      
  (graphscr)
  (if (= kuan nil) (setq kuan 45))
  (princ "\n线宽<") (princ kuan)
  (setq x (getint ">:") kuan (if x x kuan))
  (setq p1 (getpoint "\n选择要加粗的线:"))
  (while p1
    (setq ss (ssget p1) m 0 n2 (* kuan 0.5))
    (setq sn (ssname ss m) en (entget sn))
    (setvar "osmode" 0)
    (setq p2 (getpoint "\n哪一侧(请在加粗的一侧点取一点)<右上侧>:"))
    (if (null p2) (setq p2 (polar p1 0.8 1000)))
    (command "offset" n2 p1 p2 "")
    (if (= (tblsearch "LAYER" "jiacu") nil) (command "layer" "n" "jiacu" ""))
    (if (= "LINE" (cdr (assoc 0 en)))
       (command "pedit" "l" "y" "w" kuan "")
       (command "pedit" "l" "w" kuan "")
    )
    (command "chprop" "l" "" "la" "jiacu" "")
    (setvar "osmode" 512)
    (initget "W")
    (setq p1 (getpoint (strcat "\n(线宽为" (itoa kuan) ") 改线宽W/选择要加粗的线:")))
    (if (eq "W" p1)
      (progn
        (princ "\n线宽<") (princ kuan)
        (setq x (getint ">:") kuan (if x x kuan))
        (setq p1 (getpoint "\n选择要加粗的线:"))
      )
    )
  )
  (princ "\n  ms 96.1创建, 05.11修改。   Email: gysjy0@163.com")
  (setvar "osmode" os)   
  (setvar "clayer" oc)      
  (setvar "plinewid" op)  
  (command "undo" "e")
  (setq *error* oer)(princ)
)[/PHP]

paladi

谢谢楼主，可以使用了。

zcenc

都是高手啊，进来学习一下

cuyongping

谢谢收藏了！