这是本网站的第一篇测试文章，希望您喜欢！
网页链接
你可以试试点击下这个文件。
http://www.qjchen.com.cn/wordpress/HTML/ADD.html
最简单的加法页面。
http://www.qjchen.com.cn/wordpress/HTML/matter/Friction/index.html
matter的官方例子
LATEX例子
\(E=mc^2\)嵌入HTML例子
点击=号，结果将在这显示
语法高亮例子，syntaxhighter
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>简单加法</title>
<style type="text/css">
#result{
height: 50px;
width: 200px;
border: 1px solid #CCC;
font-size: 18px;
}
</style>
</head>
<body>
<input id="a" type="text" value="3.2"/>
+
<input type="text" id="b" value="3.78" />
<input type="button" onclick="add()" value="=" />
<div id="result">点击=号，结果将在这显示</div>
<script type="text/javascript">
function add() {
var a = parseFloat(document.getElementById("a").value);
var b = parseFloat(document.getElementById("b").value);
var c =a + b;
document.getElementById("result").innerHTML = c;
}
</script>
</body>
</html>
;;; 动态线型比例 by qjchen@gmail.com
;;; 思路来自于eachy版主 http://eachy.bokee.com/5731665.html
;;; http://eachy.bokee.com/5731665.html
(defun C:test ( / dcl_id dclcontent dclname userclick temp)
(vl-load-com)
(setq temp (getvar “cmdecho”))
(setvar “cmdecho” 0)
(command “undo” “be”)
(setq dclcontent (list
“qjchenedynamicltscale:dialog{”
“label=\”线型比例修改 qjchen编制\”;”
“:button{”
“key = \”button1\”;”
“label = \”单独线型比例修改\”;”
“is_default =true;}”
“:button{”
“key = \”button2\”;”
“label = \”全局线型比例修改\”;}”
“:button{”
“key = \”button3\”;”
“label = \”取消\”;}”
“}”)
dclname “qjchendltscale”
)
(setq dcl_id (load_dialog (qjchencreatdcl dclname dclcontent)))
(if (not (new_dialog “qjchenedynamicltscale” dcl_id)) (exit))
(action_tile “button1” “(done_dialog 3)”)
(action_tile “button2” “(done_dialog 4)”)
(action_tile “button3” “(done_dialog)”)
(setq userclick (start_dialog))
(unload_dialog dcl_id)
(cond ((= 3 userclick)(qjchenedltscale 1))
((= 4 userclick)(qjchenedltscale 2))
)
(command “undo” “e”)
(setvar “cmdecho” temp)
)
(defun qjchenedltscale(n / obj a apoint gr linetype newscale o orilst overallltscale zq)
(prompt “\n 请选择某一非continuous线型的物体:”)
(setq obj (entsel))
(setq a (car obj) apoint (cadr obj) o (vlax-ename->vla-object a))
(setq orilst (vlax-get-property o ‘LinetypeScale))
(setq linetype (cdr (assoc 6 (entget a))))
(if (= linetype nil)
(setq linetype (cdr (assoc 6 (tblsearch “layer” (cdr (assoc 8 (entget a)))))))
)
(if (and linetype (/= linetype “Continuous”))
(progn
(setq zq (cdr (assoc 40 (tblsearch “ltype” linetype))))
(setq overallltscale (getvar “LTSCALE”))
;(setq b (getpoint “\n请选择一个点:”))
(while (= (car (setq gr (grread nil 5 0))) 5)
(redraw)
(grdraw (cadr gr) apoint 1 1)
(setq newscale (/ (distance (cadr gr) apoint) zq overallltscale))
(apply-props o (list (list “LinetypeScale” newscale)))
)
(if (= n 2)
(progn
(setvar “ltscale” (* overallltscale (/ newscale orilst)))
(apply-props o (list (list “LinetypeScale” orilst)))
(command “regen”)
)
)
)
)
(vlax-release-object o)
(princ)
)
(defun apply-props (object proplist)
(foreach prop proplist
(if (vlax-property-available-p object (car prop))
(vlax-put-property object (car prop) (cadr prop))
)
)
)
(defun qjchencreatdcl(dclname lst)
(setq dcl_name (strcat (getenv “temp”) “\\” dclname “.dcl”)
f (OPEN dcl_name “w”)
)
(foreach x lst
(write-line x f)
)
(close f)
dcl_name
)
;;end main program
(princ “\n By qjchen@gmail.com, 动态线型比例调整, The command is test”)
(princ)
嵌入SVG
嵌入公开的observablehq
